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PUBLICACION PARA USUARIOS OC MICROCOMPUTADORES ATARI 


EDITORIAL 

Máquina gráfica Panasonic 


MANEJANDO TU ATARI 

Información, programas y actividades 
para todo nivel de programación 

Directo al 6502: Direccionamiento ¡ndexado 

USR: Lector 

Dominando la 1050 

Controlando la casetera 

Aplicaciones: Base de Datos XL 

juego del mes: trag amonedas 
Técnicas: Set de Caracteres 
Entrevista: Ganador concurso software 

Colegios con ATARI 

Testimonio 
Videomani'a 
Noticias: 

Programas; 

Noticias: 


t 


MONSTER SMASH 
Bases colaboraciones 1988 
Software para ATARI ST 
ATARI CLUB de Chile informa 
sobre resultado concursos 1987 
Cuenta corriente bancaria 


Aplicaciones 

Equipo: 


Lápiz Optico SK-16 
Concursos 


Participando 
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AMIGOS LECTORES: 

Ustedes pueden completar su 
colección de MU MDOATAR1 
adquiriendo los números 
atrasados directamente en 
Av. 1 1 de septiembre 2305, 

local 18, o bien, 
utilizando la Orden de Pedido, 
adjunta a esta revista. 

(Números atrasados 
valen $ 500 cada uno) 
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Artículos, 

Programas, 

Educación y mucho más 
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Editorial 
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F EBRERO es un mes de vacaciones, playa, amistad, tiempo libre, 
casino y juegos. Nuestro común amigo, el ATARI, define su portada 
de acuerdo a ese marco, haciéndose eco del ambiente del momento. 

Para los adictos al juego se ofrece el simpático TRAGAMONEDAS, 
que es una simulación de las máquinas de juego reales, el que les permitirá 
determinar su estado de suerte sin comprometer su bolsillo. 

En la columna Dominando la 1050 desarrollamos el programa Listado 
de amigos, para aprender el manejo de archivos en diskette con una finalidad 
específica: construir etiquetas de modo de facilitar el envío de 
correspondencia. 

Este mes continuamos con las actividades tendientes a organizar 
nuestro grupo familiar de acuerdo a sus intereses particulares. Como resultado 
de ello lanzamos la idea de creación de un Club de Usuarios de Casete. 

Si el interés correspondiera al manifestado por los usuarios de la línea ST 
para la formación de otro Club similar, éste debería tener una excelente 
acogida.' 

Nuestro interés al promover organizaciones de este tipo es aumentar 
el contacto entre nuestros lectores, conocer sus preferencias particulares 
de acuerdo a su configuración y lograr un mejor aprovechamiento de sus 
equipos. 

Como anticipo para quienes se encuentran de vacaciones, diremos 
que MUNDOATARI se encuentra abocado al próximo período de 
vuelta a clases y al diseño de una nueva estrategia que ustedes conocerán 
en el número de marzo de 1988 con el tema De vuelta a clases con ATARI 
y MUNDOATARI. 


Ivén Gjurovic M. 
Editor 


MUND®ATAftr 
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Revista con información exclusiva 
para microcomputídores ATARI 

Resol. Exenta No. 360/6-5-1987 


Editor: Ivén Gjurovic M. 

Director: Adolfo Tor rejón S. 
Representante legal: Lucia segura G 
Producción: SES Sistema 
Casilla: 458-1 1, Ñufloe, Santiago 
Teléfonos: 2S1S949 


Impresa por Editorial Antartica, 
quien sólo actúa como impresora. 


Esta revista no mantiene relación 
de dependencia de ningún tipo 
con respecto a los fabrlcantas 
de mi ero computa do re* * ATARI 
ni sus representantes. 

El contenido de la publicidad es 
responsabilidad de los avisadores. 

Prohibida la reproducción total 
o parcial de esta revista sin la 
autorización escrita de los editores. 
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Máquina gráfica 
Panasonic 



ABCDEPGHIJKLMNOPQRSTUVWXYZ [\ ] ^Babcdef ghi jklmnopqrstuvwxy z 


ABCDEFGHIJKLMNOPQRSTUVWXYZ f\ J ^Qabcdefghijkl mn opgrs tuvvxyz 


ABCDEFGHIJKLMNOFQRSTUVWXYZ |\J -JJabedefghi jJclranopqrstuvi/xy Z 



ABCDEFGH IJKLMMQPQRSTUVWXYZ t\)- flabcdef ghj iklmnopqrscuvwxvz 


Estas son algunas de las 
posibilidades gráficas 
disponibles en las máquinas 
Panasonic. 

Ver para creer. 



100 

80 

60 

40 

20 

O 


Otra dimensión para informes 
exigentes: combinación de tex- 
tos y gráficos de distinto tipo y 
... en 4 colores. 


Los modelos RK-P400C y 
RK-P200C son los representan- 
tes de la línea Panasonic para 
ejecutar en forma única la inte- 
gración entre textos y gráficos 
de distintas clases, directamente 
en papel. Disponen de 3 y 5 ti- 
pos de gráficos diferentes para 
expresar sus tablas de datos com- 
parativos al instante. 

Usted podrá comprobar los 
resultados presentados en las 
ilustraciones adjuntas. 

La máquina gráfica Panasonic 
está pensada para la producción 
de informes , con los que usted 
podrá impresionar efectivamente 
a su destinatario por su excelen- 
te presentación. 

Las opciones que usted puede 
seleccionar son las siguientes: 

- MODO DIRECTO (DP).enel 
que las teclas presionadas se 
imprimen directamente al 
papel. 

- MODO CURSOR {LL), las te- 
clas presionadas se despliegan 
por el visor y serán impresas 
en el papel cuando presione 
la tecla RETUR N. 

- MODO COMANDO (Com- 
rrtand), el teclado acepta el 
ingreso de comandos gráficos 
y gráficos que se despliegan 
en el visor. 

- MODO MEMORIA, para al- 
macenar 3.190 caracteres, di- 
vididos en 9 trozos. 

La máquina Panasonic tiene 
incluido un visor para visualizar 
24 caracteres en memoria. La 
memoria disponible puede exa- 
minarse en todo momento y 
una de las optimizaciones consis- 
te en las funciones de búsqueda 
en estos textos almacenados. 

Pida mayor información al 
Catálogo MUNDO ATARl o per- 
sonalmente en nuestras oficinas 
de Avenida 11 de septiembre 
2305, local 18, Santiago de Chile.# 
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Hoy iniciamos nuevos conceptos para adentramos 
en la máquina en conjunto con el ASSEMBLER 


El mes de diciembre de T987 aplicamos algo 
similar a una rutina de máquina para mover bytes 
desde el buffer hacia la pantalla. 

Las herramientas disponibles no permitían 
usar los mejores recursos para lograr una rutina 
óptima. Por esa razón nos corresponde iniciarnos 
en otra forma de direccionamiento. 

DIRECCION AMIENTO INDEXADO 

Para este tipo de operación los registros X e 
Y son utilizados como incremento en el avance del 
puntero y la repetición de un proceso es de fácil 
ejecución. 


Ejemplo; 

LDA $ 9DOO, X 

Esta instrucción que indica carga e¡ acumula - 
dor con el valor contenido en localización: 


Localización 

Valor X 

Total 

9D00 

0 

9D00 


1 

9D01 


2 

9D02 


3 

9D03 

f 

4 

9D04 


5 

9D05 


6 

i- m * 

9006 
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<4 SS EM BLE R: con tinuación 


Paralela a ésta tenemos otra instrucción: 

STA $ 9EO0, X 


202 DEX 

16 247 BPL COPY 


que almacena el contenido de I acumulador en loca- 
lización: 


Localización 

Valor X 

Total 

9E00 

0 

9E00 


1 

9E01 


2 

9E02 


3 

9E03 


4 

9E04 

r •* 

. 5 ¡ 

9 EOS 


6 

9E06 

m 

4 * n 

- 


Una nueva instrucción para cargar el registro 
X con un valor determinado: 

LDX #82 

Esta instrucción significa carga el registro X 
con ei valor decimal 82 (recuerde que el signo # 
indica que el siguiente número es decimal) . 

Para modificar el valor del registro X tenemos 
la instrucción: 

DEX 

que significa disminuye el registro X en 1, 

Otra instrucción para detener el ciclo: 

BPL COPY 

ésta es una instrucción de salto, tema que iniciare- 
mos el próximo número. Por ahora anticiparemos 

que si el valor de X es diferente a 0 repite la opera- 
ción de carga (LDA $ 9D00). 

Un resumen de las instrucciones totales: 


10 *=$6080 
20 LDX 85 

30 COPY LOA TABLEi.X 
40 STA TABLE2,X 
58 DEX 
60 BPL COPY 
70 BRK 

80 TA0LE1 .BYTE 10,11,12,13, 14 
90 TOOLE 2 #-#*6 

0100 .END 


En cuanto a los códigos equivalentes tenemos: 

162 82 LDX #82 

189 0 156 COPY LDA $ 9C00 

157 0 158 STA $ 9EÜ0 

6 


Agregamos finalmente las instrucciones: 

104 PLA 

96 RTS 1 

Las líneas de DATA (100} corresponden a los 
códigos para la rutina en máquina, 

Digite el listado siguiente: 


10 IEH MOVER COK INDICE 
2B F0R J’9 TO 12 
30 READ A 
46 POKE 1536* J, A 
50 XEXT J 

100 DATA 104, 162, 74,189,32, 156,157,0,1 
58,202,16,247,96 
110 ? CHRS (125) ; " 


MUNE/0AT6RI HUMERO 


VAGACIONES 33 


120 Y=USRC1S36) 


II * 
I 


Este tiene por objeto mover 82 bytes desde la 
lista de despliegue hacia las páginas que aparecen 
en la pantalla. 

Al ejecutar el programa verá en pantalla lo que 
indica la foto siguiente: 






mundoatafu 


Modifique el valor 3 de la línea de DATA para 
aumentar el rango. 

-V/ 

Tal como anun- 
ciamos anteriormen- 
te, continuaremos el 
próximo mes con el 
desarrollo de las ins- 
trucciones de salto 
o BRANCH. 


Hasta entonces. 






I 



Esta columna de continuidad proporciona a 
los lectores avanzados una exclusividad, que opti- 
mizará una serie de procesos en el manejo de ar- 
chivos. 

A manera de información esta rutina permite 
el manejo de grandes bloques de datos difíciles de 
operar en forma convencional vía BASIC. 

E! programa CUENTA BANCARIA, iniciado 
el número anterior proporciona un ejemplo carac- 
terístico, y además será motivo de un estudio sis- 
temático que tomará a su cargo ta columna Domi- 
nando la 1050, en el tema de archivos random. 

La rutina en máquina se encuentra en los ca- 
racteres de la línea LECTOR. 


IB REH RUTINA LECTOR V ESCRIBE SECTOR 
SES SISTEMA CHILE 1986 
13 LECT0R= ADR í"fhhli J hRrt J I* 

Mm KQtaHQt/o* s0W&GJ«W JA iQ h 'Di J 
vH‘ t W a > 

20 REH PARA* TROS DE LLAMADA 

30 REH Y=I15R (1537, LOCHE, SECTOR, NUH,DIR 
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ASSEM BL E R: con tina ación 







Su indicación para ejecución está en la página 
seis {localización 1536), De esta forma será una 
aplicación de nuestra rutina MOVER para despla- 
zar desde la localización LECTOR hasta 1536 los 
códigos de la rutina. 


Para 

1537 

LOCME 

SECTOR 

NUNME 


la ejecución requiere de parámetros: 

Localización inicial de ML rutina. 
Localización de memoria en que se ubi- 
ca los caracteres a desplazar. 

El número del sector inicial del disco, en 
que se ejecuta la transferencia. 

El número de sectores que se transfieren 


OPERACION Sentido de la transferencia: 


87 

82 


Escribir desde memoria hacia el sector 
Leer desde el sector hacia la localización 
de memoria. 



» ■ . ^ " - . , 

Ahora una aplicación práctica de esta ML ru- 
tina, Las pantallas tan útiles para la comunicación 
con el usuario, pueden tener una excelente optimi- 
zación mediante este recurso. 

Él primer programa permite crear una pantalla 
de 1 6 I íneas en 5 sectores del disco. 


JJ REH PROBANDO LA RUTINA EN EJEMPLO 
RE PANTALLAS 

12 " WERr ARR c ,l hh.TKT Kl!K^TokWgiK 

fiHB 03133 fiEUBdlbEHII* ,> ) 

U L ECTORr ARR í "thh*, J ■* hh*?/ 

hha HQfaHDv/oi SÉHfik J B í ffl w W- ,J -iEPW 
li J W) 

14 Y=USR CURVEA, LECTOR, 1536, 701 
20 REM LOC RE PANTALLA; 40000 f MORO 0 
PARA ATARI 800, 65 Y 130XE 
30 REM SECTOR; 608 RE UN RISKET 
40 REH NUMERO RE SECTORES (5). -640 BY- 

tes-16 Lineas moro o 

50 REM 82= OPERACION LECTURA 
60 REM 87=0PERACI0N ESCRIBIR AL RISCO. 
100 REH LA SICUIENTE INSTRUCCION STOP 
RETIENE EL PROGRAMA. LIN>IE PANTALLA 

Y ERITE TEXTO SIN PRESIONAR RETURN 
110 STOP 

12» REM FINALIZARA LA ESCRITURA 
LLEVA EL CURSOR A LINEA 18 
130 REM Y RIGITE CONT 
140 Y=USR (1537, 40000, 609, 5, 87) 

145 REM LA EJECUCION RE LINEA 140 , EN 
VIA DIRECTAMENTE A LOS SECTORES 690 AL 
604 LOS 640 BYTES C4O0O0-40639) 


El listado final trae los sectores desde el disco 
hatfia la pantalla. 


TfTP 


10 REM PROBANRO LA RUTINA EN EJEMPLO 
RE PANTALLAS 

|£U¡UU¡HG* M ) 

13 LECTOR= ARR ("fhhBi 1 J h® *■* hÉL J bh|f/ 

hha HOtaHOv/i! 

■HW* 

14 Y=U5R (MOVER, LECTOR, 1536, 70) 

69 REM 82=OPERA£XOX LEER RESRE RISCO. 
100 REM LA EJECUCION RE LA FUNCION USR 
TRAE HACIA LA PANTALLA EL CONTENI- 
RO RE LOS SECTORES 
140 Y=U5R (1537, 40909, 690,5,02) 

150 POSITION 0,18 
160 ENR 


Hasta el próximo mes, con otra exclusividad 
para ustedes. * 
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La cotumna de la Unidad de Disco coopera 
a este número dedicado a fas vacaciones, en que 
las amistades aumentan. Para ello este programa 
será de aplicación de lecciones de meses anterio* 

l T 

res. 

En esta ocasión ei programa se encuentra digi- 
tado en los casetes o diskettes de apoyo, para que 
usted, amigo lector, que tiene un gran número de 
amigos, pueda escribir las direcciones de ellos en 
etiquetas, comunicando de esta manera a su medio 
social que usted pertenece al grupo computan - 
zado ATARI . 

Las opciones de este programa se aprecian en 
la siguiente pantalla: 


- . V . v. 

* r : 

- - 

i 

■ r -’ , ' ' 

. 

í # •“ 1 


- ■ ? • T 


• * ■ 


•c 
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1. (metaliza: crea un archivo para que ingrese 
a sus amigos, . 

2 . Agrega amigos: permite aumentar ei número 
de amigos. 

3. Modifica datos de un amigo: permite modifi- 
car los datos de dirección de! amigo en ar- 
chivo. También permite cambiar ei amigo 
por otro nuevo. 

4. Imprimir etiqueta de correspondencia: permi- 
te imprimir en cualquier impresora los datos 
de un amigo a una etiqueta ancha (Pedir por 
el Catálogo MUNDOATARI ). 

5. Imprimir: esta opción permite imprimir el 
listado de amigos en archivo a pantalla o im- 
presora. 


















DfSKETTE: continuación 


18 REH ARCHIVO MAILING 
15 DIH NOMBRES 130) ¿ DIRES (28) , COMUNAS (2 
8) , CIUDADS (17) , RS (1) , LINEAS (39) , IMPRES 
(78) 

20 GOTO 1080 
58 mn ABRE ARCHIVO 

68 CL05E 82: OPEN 82,8, 0,"D: AMIGO. HUG": 

CL8SE m 

78 GOTO 1088 

188 REH INGRESAR AMIGOS 

110 CLOSE 82 

128 OPEN 82,9,0,^^8160^6" 

138 REM VA A SUBRUTINA INGRESA AMIGO P 

OR TECLADO V A ARCHIVO 

148 G05UB 4088 

228 P05ITI0N 8,20:? 


M 


RE50S 


238 INPUT RS 
248 IF RS="5" THEN 108 
308 CLOSE 82 ¡GOTO 1808 
3S8 REM MODIFICA AMIGO 
355 CLOSE NI : OPEN 81 , 4 , 0, "D : AMIGO . HtlG" 
358 CLOSE N2 : OPEN 82, 8,0, "D: AMIGO. TN>" 
360 TRAP 430 
378 GQSUB 5808 
375 GOSUB 6800 
388 POSITION 8,28!? *1 


5TE íiHIGO 


MODIFICA DATOS E 


*1 


385 INPUT RSíIF RSa u N" THEN 488 
398 GOSUB 3888 ¡GOTO 368 

488 GOSUP Í133 • ' 

418 POSITION 8,20:? 


Ni i 
7 


05 5/N 


415 INPUT RSíIF RSO"S M THEN 408 

428 GOSUB 3808 .‘GOTO 370 

438 CLOSE Ni: CLOSE N2 

458 KIÜ 33,N1,8,0, ,, D: AMIGO.NUG“:XIO 32 

,N2, 0 , 0, “D : AMIGO . THP, AMIGO . HIÍG" : CLOSE 

N2 

468 GOTO 1088 

508 REM IMPRIME AMIGOS 

510 TRAP 1880 

515 GLOSE Ni: OPEN 81,4,0, "¡>: A MICO .HUG" 
528 GOSUB 5088 
538 REM 

608 REM EDITA DATOS EN PANTALLA 
618 GOSUB 6888 
780 POSITION 8,28:? *1 

mir 

718 INPUT R$ 

720 IF R$<>"5" THEN GOTO 520 
888 REH IMPRIME ETIOUETA 
818 LPRINT NOMBRES 


IMPRIME ESTA ETIQ 


MUNDO ATAR 


820 LPRINT DIRES 

830 LPRINT COMUNAS;" "¡CIUDADS 

840 LPRINT " k"J 

850 LPRINT "REMITE ZARAGOZA 7847" 

860 LPRINT "fck f, ;:GOT® 520 

908 REH LISTADO AMIGOS DIRECCION 

905 PONE 82,0 

918 CLOSE Ni: OPEN 81, 4, O, "D: AMIGO. HUG" 

912 TRAP 990 - 

915 ? r.Hpsn?5i i' WHnniMaiViMff l 

NOMBRE ►DIRECCION 

►CIUDAD" 

918 TRAP 920: LPRINT "LISTADO AMIGOS A 
IMPRESORA 11 : LPRINT 11 HOMBRE 

DIRECCION 

CIUDAD" 

920 REM LEE UNA AMIGO 
922 TRAP 990 

925 GOSUB 58B8 :L1=L EN (NOMBRES) :L2=LEN( 
DIRES) : L3-LEN (CIUDADS) 

935 IMPRES IMPRES (78) =" ":IMPRE 

$ (2) -IMPRES : LINEA$=IHPRE$ 

948 LINEAS (1 , 8*L1) =N0HBRE$ : LINEAS (19 , 1 
8+L2) =DIRES 

950 T=L3:IF L3>8 THEN T=8 
955 LINEAS (32, 31 ?T)=CIUDAD$:? LINEAS 
968 IMPRES (4,3+Ll> ^NOMBRES : IMPRES (43,4 
2H2) -DIRES : IMPRES (63, 62+L3) -CIUDADS 
978 TRAP 975 ¡LPRINT IMPRES 
975 GOTO 922 
990 POSITION 0,20í? *1 


PRESIONE RETURN 


kit* 
i 


y FINALIZA 


995 INPUT RS 

1888 ? CHAS (125) ; : POSITION 0,0:? 11 


ETIQUETAS 


MUNDÜOTARI 


NI • 

i 


1818 POSITION 18,3:? " H E N U» 
1015 POSITION 5,5:? " i,- ABRE EL ARC 

HIVO" 

1020 POSITION 5,7:? " 2.- AGREGAR AHI 

GOS" 

1025 P0SITI8N 5,9:? " 3.- MODIFICA DA 

TOS AMIGO" 

1838 POSITION 5,11:? 4.“ IMPRIMIR E 

TlfiUETA SOBRE" 

1835 P05ITION 5,13:? 11 5,- IMPRIMIR L 

ISTADO AMIGOS" 

1848 POSITION 8,20:? '1 


DIMITE nuñero 


Ni* 


de OPCION 


ÍN’if INPUT NUN 

1868 IF NUH(1 OR NÜM>5 THEN 1800 
1070 OH NUM GOTO 58,108,350,588,900 
3880 Xe M INGRESA DAT05 AMIGO A ARCHIVO 
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TEMPORAL 

3018 ? #2; NOMBRES 
3828 ? IJ2;0IRE$ 

3038 7 82; COMUNAS 
3040 7 #2 1 CIUAAAS 
3050 REIURN 

4000 REI» INGRESA RATOS UN AMIGO 
4005 7 CHR$UZ5> 

4010 POSITION 0,1:? " 

4815 INPUT N0H8RES:? «2; NOMBRES 
4028 P05ITI0N 8,3:7 11 

r 

4825 INPUT AIRES:? N2; AIRES 
4830 P05ITI0N 0,5:7 


DIGITE HOMBRE 




DIGITE DIRECCION 


DIGITE COMUNA 


4035 INPUT COMUNAS:? «2; COMUNAS 
4040 POSITION 0,7!? 


DIGITE CIUDAD 


ni 


4045 INPUT CIUAAAS:? 82; CIUAAAS 
4058 RETURN 

4100 REM INGRESA DATOS UN AMIGO 


raí» 


púNTALlA 


4105 

4118 

4115 

4120 

r 

4125 

4130 

r 

4135 

4140 

r 

4145 

4150 

5000 

5020 

5030 

5040 

5050 

5060 

6000 

6010 

6820 

6030 

6040 

6058 

6060 

6076 

6000 

6090 

6100 


? CHRSC125) 
POSITION 0,1:? ** 
INPUT NOMBRES 
POSITION 8,3:? 

INPUT AIRES 
POSITION 8,5:? a 1 

INPUT COMUNAS 
POSITION 8,7:? ■■ 


DIGITE NOMBRE 


tai 


DIGITE DIRECCION 


DIGITE COMUNA 


DIGITE CIUDAD 


INPUT CIUAAAS 
RETURN 

REM LEE CAMPOS AE ARCHIVO 

INPUT NI; NOMBRES 

INPUT 81 ¿AIRES 

INPUT ttlí COMUN AS 

INPUT M; CIUAAAS 

RETURN 

REH EDITA DATOS EN PANTALLA 
? CHRSU25) 

POSITION 0,2:? "NOMBRE 11 
? NOMBRES 

POSITION 0,4:? "DIRECCION" 

? AIRES 

POSITION 0,6:? "COMUNA" 

? COMUNAS 

POSITION 0,8:? "CIUDAD" 

? CIUAAAS 
RETURN 



Háganos ¡legar sus comentarios a este progra- 
ma, que demuestra !a orientación práctica de nues- 
tra revista para ustedes. 

Análisis del programa' 

T5 Inicializa variables. 

50 Rutina para inicial izar archivo. Observe que el 
número del parámetro en IOCB (8) indica el 
puntero hacia ia posición inicial . 

100 Rutina para agregar amigos. Observe e! núme- 
ro del parámetro en IOCB (9). Este significa 
apendizar, o sea, mover el puntero a la posi- 
ción final. 

350 Rutina para modificar los datos de un amigo. 
Esta rutina contempla la creación de un ar- 
chivo temporal para almacenar los cambios. 
Esta estrategia permite economizar memoria 
del disco para optimizar los ingresos. 

500 Rutina para imprimir en etiqueta el nombre 
del amigo y del remitente. Para que ésta co- 
rresponda a sus datos personales modifique 
ia línea 850. 

900 Rutina para editar en pantalla e imprimir en 
impresora el listado de amigos. 

1000 Rutina que edita el menú de selección. 
Cada una de estas rutinas llama a bloques de 
subrutina para tareas específicas que se .repi- 
ten en algunos casos y permiten organizar 
nuestro programa. 

3000 ingresa datos del amigo en un archivo tem- 
poral. 

4000 ingresa datos de un amigo por teclado y en 
forma simultánea escribe en el archivo. 

5000 Lee datos de un amigo desde el archivo. 

6000 Edita datos de un amigo en pantalla. 

El próximo mes nos abocaremos a una tarea 
de optimización mayor que corresponde a archi- 
vos random. 

Hasta el próximo mes. • 


FEBRERO 1988 
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Controlando 

la casetera 


Psra comprender mejor la operación interna 
deí computador conectado a la unidad de casete, 
estuvimos experimentando con la función deí 
buffer (MUNDOATARI No. 7, diciembre 1987). 

Este mes vamos a estructurar los conocimien- 
tos adquiridos. 

Para empezar veremos las dudas que queda- 
ron pendientes: 

1. ¿Qué diferencia se observa al usar los opera- 
dores "y " , " ? 

Al ejecutar el primer programa del número 
anterior aparecía entre palabras e¡ símbolo de es- 
paciamiento " @ ", el que se transformaba en 
" * " a l ejecutar ef segundo listado. Pues bien, el 
corazón o espacio en pantalla tiene el código 
ATASCII - 0, que se obtiene al digitar en modo 
directo la siguiente instrucción: 

PRINT ASC{" ") 

Pero a nivel de memoria el computador usa 
el código interno 64 que es precisamente el ca- 
rácter " @ " . Ver columna De Byte en Byte de 
MUNDOATARI No. 8, para más detalles. 

Al usar punto y coma como operador se pre- 
senta 1 solo carácter de espaciamíento; en el caso 
del operador coma aparecen varios caracteres para 
cumplir la función de tabulación. 

2. ¿Qué significa ef carácter " B"? 

Este carácter corresponde a la tecla RETURN 
(ASCII — 155). Como su función se ejecuta siem- 
pre, no podemos representarlo directamente en 
pantalla. 

Hagamos una prueba para apreciar la diferen- 
cia. Elimine provisoriamente la línea 10070 del 
segundo listado visto el mes de diciembre y digite 
las siguientes líneas: 

10OPEN #1,8, O, "C:" 

20 ? #1; "HOLA": 7 #1; "MUNDOATARI": ?#1- 

"FIN" 

30 GOSUB BUF 

40 CLOSE #1 

Ejecute y entenderá que por razones didác- 
ticas debimos representar este carácter por medio 
de un pequeño truco. 


ESTRUCTURA DE UN REGISTRO 

'■ ' * 

Nos queda pendiente la última pregunta: 

3. ¿Qué representan los 3 caracteres iniciales? 

La respuesta a este punto la desarrollaremos 
con el listado siguiente. Observe que la subrutina 
de las líneas 10000 en adelante es la misma del 
mes anterior, salvo pequeñas diferencias en las 
líneas 10020, 10025 y 10120. 


■CóRGACÚSETE V EDITA BUFFER 


5 REH 

10 GRAPNIC 5 0 :PONE 706,1 
15 TRAP 

20 ree=i:buf= 10000 :»ih aScd 

25 0 PEN M, 4 , 0 , “C i* 1 : GET ni, C 

30 STA=PEEK 110231 

35 IF STA =250 THEN H=PEEN f 11511 

48 IF 5 TA -252 THEN H =128 

45 F 0 R H -2 T 0 H 

50 GET H 1 ,C ’ 

55 NEHT X 

66 GOSUB BUF: GET «II, C 

65 REG=REG+ 1 : GOTO 30 

9008 reh **Hensajes de error** 

9010 IF PEEN ti 95 ) = 1 J 6 THEN REG=REG+ 1 :C 


o un EHD of FILE 


9020 P 05 ITI 0 N 2 , 20 ;? *' 


<:? '1 

He detectad, 

i 


Operación fallo 


1 B 


PEEN ( 195 ) :END 


Edita contenido de buffer 


. , .erro 


9999 EN» 

10000 REH *j 
10010 0 = 1024 : REH Inicio do buffer 
10020 GRAPHICS 0 :P 0 NE 02,6 

10025 P 0 SITION 6 , 0 :? ’ UlitUMa H ;REG 
10030 PONE 40040 , PEEN ( 1021 ): PONE 40042 
, PEEN ( 1022 ) ;P 0 NE 40044 , PEEN ( 1023 ) 

10035 REH Para atari 600 caiibie 1 mea 
anterior=>PONE 15464 , PEEN ( 1021 ) : PONE 1 
5466 , PEEN ( 1022 ) tPONE 15460 , PEEN ( 1023 ) 
10040 F 0 R V=« TO 7 
10050 FOR X =0 T© 15 
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1MSI A= 0»EEK ÍB*X+Y*16) 1 

10979 IF A=1S5 THER ? 'fi" "¡ íCOTO 19 

899:REtf desvio en caso de return 

18980 ? CHR$ CAI ; » 

18896 NEXT K:? ;? 

18108 NEXT Y:? 

19119 PONE 92 j 2 

10120 ? "Presione RETURN para seguir"; 
riNPUT A$ 

19130 RETURN 


Comentarios al listado: 

Líneas 10-25 Inicial-iza. Pone valor 1 en localiza- 
ción 766 para que represente, pero no eje- 
cute las funciones especiales , cuando apa- 
rezcan. 

Línea 15: Al producirse un error se dirige a los 
mensajes (9000). 

Líneas 30-40: En variable STA almacena valor 
de byte de control (localización 1023). Se- 
gún eso maneja el ciclo de rescate que tiene 
como tope el valor de la variable H, 

Línea 65: La variable REG aumenta el valor en 
1 en cada vuelta para indicar e.l número de 
bloque o registro. 

Grabe el programa con la instrucción LIST 
"C: " , poTiga la cinta al comienzo y ejecute el 
programa. Observe el comportamiento de los 
caracteres iniciales. 

Los 2 primeros caracteres se mantienen in- 
alterables, el tercero puede ser uno de los 3 si- 
guientes: 

O ; ASCII 252 
B : ASCII 250 
□ : ASCII 254 

Ubiquemos estos bytes dentro del esquema 
general del buffer: 


tocaHzació n valor descripción 

1021 
1022 

1023 

1024 


1151 


85 

85 

252/ 250/ 254 

,1 

128 

i 

bytes 

1 



Marcador 
Marcador 
Byte de control 


Contenido 

Información 


Suma de cifras 



El Sistema Operativo maneja la información 
dentro de las localizaciones 1024-1151, pero adi- 
cionalmente usa un encabezamiento de 3 bytes 
para cada registro (1021 , 1022 y 1023): 

1. Los 2 primeros (valor 85) son usados como 
marcadores (en binario: 01010101), sirven pa- 
ra que el Sistema Operativo ajuste la velocidad 
del motor o compense estiramientos de la 
cinta. 

2. Byte de control, que puede tener 3 valores dis- 
tintos: 

— 252 : indica que la capacidad del buffer está 
completa con 1 28 bytes. 

— 250 : indica que el buffer está parcialmente 
lleno de datos, y corresponde al último blo- 
que de información transmitida. 

Si usted observa la pantafla en el bloque No. 
9, comprobará que el computador ingresa en 
el buffer los últimos datos sobre los anterio- 
res y agrega en el último byte (localización 
1 1 51 , ubicada abajo a la derecha) el valor 
correspondiente a la suma de bytes presen- 
tes en ese bloque, incluyendo los marcado- 
res (la letra A tiene el valor 65, que es alma- 
cenado en ja variable H). 

— 254 : indica el fin de archivo (End of File), 
seguido por 128 bytes con valor 0. Este byte 
se genera automáticamente al cerrar el canal 
de comunicación (C LOSE #1 ). 

3. Suma de cifras: ya mencionada más arriba. Es- 
te byte se genera y verifica en el Sistema Ope- 
rativo, pero no queda contenido en el buffer. 

¿Qué le ha parecido la experiencia? 

Después de este análisis hemos podido esta- 
blecer que las operaciones de carga y grabación 
no eran tan simples como se ven a primera vísta. 
El computador (as controla rigurosamente mien- 
tras se efectúan. 

Pero no todo será teoría, el próximo mes 
vamos a incursíonar en una interesante posibili- 
dad de la configuración con Unidad de Casete, 
como es la utilización de audio y música para 
enriquecer los programas que usted prepara. 
Hasta entonces, amigos. • 
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APLICACIONES 



■y"; fgp 


'*ir ' rTs.m 5-í; ‘ *MV"« 

■ - • ’ H í*,vi 1 

-;‘;V ^"'jí 


>¡íitT 4 >ÍÍ J¡, ivfyf... , : . 



El computador ATARI permite manipular 
bloques de información. 

MUNDOATARf, consecuente con su defini- 
ción actual, direccionará hacia el uso y enseñanza 
de utilitarios al respecto. 

Los utilitarios que manejan bloques de infor- 
mación se llaman comúnmente bases de datos. 

Esta vez seleccionaremos el programa Base 
de Datos XL, disponible mediante el Catálogo 
de nuestra revista. La utilización práctica que tra- 
taremos será la creación de un archivo de amigos 
e imprimir etiquetas para sobres de correo de ese 
archivo. 

Este programa se encuentra disponible sólo 
para diskette. 

Primero formatee un diskette, según instruc- 
ciones del Sistema Operativo (DOS), ver al res- 
pecto IVÍUNDOATARI No. 0, página 18. 

Inicialice según las instrucciones del programa. 
En pantalla aparecerá lo siguiente: 


— — ” ' ' ' y *,• ■ ■ ‘ -I • Vi , r • 1 _ j »■ _ i 1 

Al presionar la tecla START aparece ia si- 
guiente imagen: 

f 


IOI» iJ ■ (t 


* A 


RRJVI U J 

ítem u 
CLAMÍ S 


TUS 


XL 

«>rti os 

“ - ARCHIVOS- . 
ARCH ** l 
«EG I STÍfü 
HAK . 


* 

SSf.ftfí? DISKETTE DATA S H UNI ( Tit> 


Presione la tecla START y nuevamente la 
tecla START. 


En pantalla aparece el siguiente menú: 



BASE DATOS XL 

HF M L 1 XWICXO* 

-■-.♦i» RISCO* STATUS? • -*ARCH tMÜS 

■ ORIVE « » ARCH « 1 ' 

iljjj O ■ * ' REGI SIRO 

OS tHDICE THPRIME ARCHIVO UTIL 

di lH 0 PARA DATOS 

AGREGA .EDITA , BORRA 

chulo rara índices 

RffIHf CLAVt ■ CONSIRtrVf <Kt> ICE 


ORIM ú f E 1 MPR» SOftA 

IrtíftlKt REPORTES 


H'Uí.ü PARA ARCHIVOS 

.CRÍA. BORRA ARCHIVOS 
,jVrf.RECA V BORRA ARCHIVOS 

r - C¡V 

«DUlV UTILITARIO 
- FORHAtra DISCO DATOS 
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APLICACIONES 




fio o t.i t_ o 

t> ISCO-" 

oftivi a i 

libre a efe» 

t* AVE S 

t»ü- “borra 


MMCH ;* *j» {j 

- ' ARCHIVOS- - 
ARCH H i 
WCB i «O 
MAX. 

£>t r jKt soir 


STATUS 


- -j • -■ •, f . *^v ■• >.•• 

. 








Presione la tecla SELECT hasta que el cursor 
coincida con la opción ARCHIVO. 

Presione la tecla START, En pantalla aparece- 
rá el siguiente mensaje: 

Inserte disco DA TA en Unidad Disco 1 ( Dis- 
co DATA es el diskette formateado con el 


Presione la tecla START. En ese momento 
aparecerá el siguiente menú: 


Los campos son los Ítems de una entidad. 
Para nuestro ejemplo de archivo son los amigos. 

Designemos en orden: 

NOMBRE COMPLETO 

DIRECCION 

COMUNA 

CIUDAD 

PAIS 

La interacción con la Base de Datos es ingresar 
sucesivamente el nombre de estos 5 campos. 

Al aparecer la siguiente interrogante: 

CAMPO 6 NOMBRE 

presione inmediatamente la tecla RETURN, con lo 
que quedan ingresados los nombres de campos. 

Mueva el cursor hacia la opción SALE, como 
indica la foto: 


Imodulo 

RISCO-- 

ppi <Jl tí 1 
Ufftl ti t>fe* 
CLAVES 

REA BORRA 


DATOS 

» rt H 

51 AT US 


XL 


* 

CAITA 


- ARCHIVOS 
ARCH II i 
REGISTRO 
Mak . 

ocriHf fe* 


Presione la tecla START. 

El mensaje: Inserte Disco MASTER indica el 
cambio de diskette en la Unidad 1050. 

Una vez ejecutado el cambio presione la tecla 
START y aparecerá el siguiente mensaje: 

SIGUE IGUAL ARCHIVO? 

. • -i , * *■ - _ , . . . . , - E * 1 _ - -I» 

Presione la tecla START sobre la opción SI. 
En pantalla aparecerá el Menú principal, como 
lo indica- la foto: 


Mueva el cursor por medio de SELECT hasta 
la opción CREA y presione START. 

Entonces aparece la siguiente pregunta: 

NOMBRE ARCHIVO? 

Digite AMIGOS y presione RETURN. 
Entonces aparece el siguiente mensaje: 

CAMPO 1 NOMBRE 


I HI: NH I N I O :■ AL 

— r-tt SCO •*“ - STATUS ' - ARCHIVAS- - 

RRIVÍ « t ORt R >! i 

LífeRf « REGISTRO 

l CLAVES •» Hñv 

1 ñ í ■ ' * I RAICE I MPRI Hl ARC H 1 MO UTIL . 

o 1 1 nc va i os 

ftCRl GA . I I I TA . C ORRA 

MO&Ul O í ARA IKt> 1 CE S 

l’EflhF fiAVC, COR S 1 RU Vt i MOTCF 

MODLtt O ff IMPRESORA 

IMPRIME REPORTES Y CARTAS COR OATO 
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LECTORES PREMIADOS 




. . . ñaca, ñaca . . . 


| 
ÍÉ:= 



PREMIOS COLUMNA TECNICAS 

La siguiente es !a lista de lectores pre- 
miados por la respuesta correcta a la pregun- 
ta de cómo editar la letra n en el programa 
Adivina Fecha: 

Mario FrohUch, Amthauer 991 , Osorno. 
Rodrigo Mayorga A., Rodríguez 451 , Gor- 

bea. 

Fernando Gutiérrez, San Martín 451, Te- 

muco. 

Alvaro Fonseca {*) 

Fernando Núñez Pizarro , Aquelarre 5350, 
Villa Santa Elena, Santiago. 

Claudio Ronce García, Suiza 01598 , Po- 
blación J. Palacios, Punta Arenas. 

Rafael Lete/ier, Liagora 470 , Jardín del Mar . 
Roberto Reyes Pérez, Platón 01788, Villa 
Teniente, Rancagua. 

René Donaire, Santiago {*) 

Víctor Daniel Heredia Rosales, Arica (*) 
Dora lisa Vega Cuevas, Brasil 1 532, Putaendo 
Enio Belmonte, 1/2 Poniente 1080, Viña de! 
Mar. 

Roberto Navarro Jerez, Av. Collín 531 -B, 

Chillan. 

Augusto Evert Hurtado, Pob. Juan A. Ríos 
1-B, Araucarias 1087, Santiago. 

Jorge Ríos Barile, Cuarta No. 492, Villa Ale- 
mana, V Región. 

Felicitamos la participación de estos lec- 
tores, que reciben de regalo una Tarjeta de 
Referencia. 

Las personas cuya dirección no aparece 
(señalados con asterisco), deberán escribir 
nuevamente para enviarles su regalo. 

Muchas gracias. 


16 


APLICACIONES: continuación 



Ponga el cursor sobre la opción DATOS y pre- 
sione START, 


El mensaje: Inserte diskette DATA indica el 
cambio de diskette en la Unidad. 


Luego aparece el menú. 

Seleccione ia opción AGREGA y presione 
la tecla START. 

Ingrese a continuación los datos de uno de 
sus amigos. Presione RETURN al finalizar cada 
dato. 

En pantalla aparecerán los datos totales del 
primer amigo ingresado: 



*>ATO 
- - Aft-CHXVOS 
ARCti ti 1 
RCCISIROe 
M£»y . o 


A CANCELA 


Gbétcb «AYOAGA O 
OCftK.Ut Z 461 


EMUCO 

HILE 


Las opciones del menú: 

BIEN : acepta este amigo tal como se 

encuentra. 

CAMBIA : esta opción es para modificar al- 
guno de los campos debido a un 
error en el ingreso. 

CANCELA: esta opción inicial iza el ingreso 

del amigo. 

Presione START sobre la opción BIEN y us- 
ted tendrá en el diskette almacenados los datos del 
primer amigo ingresado. 

Presionando START sobre la opción AGRE- 
GA continúe agregando nuevos amigos. 

Una vez finalizado el ingreso de los amigos 
mueva el cursor hacia la opción SALE y presione 
START. 

La opción EDITA permite visualizar los ami- 
gos para verificar sus direcciones. 


Ahora nuestra tarea práctica consistirá en en- 
viar, una carta tipo a nuestros amigos de Pascua, 
que continá el próximo número. 

Hasta entonces. • 


MUNDO ATAR I 
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Las Vegas es una ciudad-casino, donde nuestro 
editor, además de su excursión a la Feria de Com- 
putación COMDEX '87, probó suerte con fas cono- 
cidas máquinas tragamonedas. En este número 
quiere compartir con ustedes a la distancia la emo- 
ción de su experiencia de sus dólares perdidos. 

Digite cuidadosamente el listado siguiente o 
bien solicítelo en el casete o diskette de la. revista 
M UN DO AT A R I No. 9 (febrero 1988} mediante la 
Orden de Pedido adjunta en el ihterior de esta 
revista. 

Al ejecutar el programa aparecerá en pantalla 
después de unos segundos la figura de una má- 
quina tragamonedas. Inserte el joystick en el 
port 1. Luego se mueve una moneda desde el 
montón de dinero que usted acumula (lado dere- 
cho de la pantalla) hacia la entrada de la máquina. 

En este momento tiene usted 4 opciones de 
selección: 

1 . Presionar el botón rojo 1 , 2 ó 3 veces y mover 
la palanca hacia atrás. Esto constituye la 
partida normal. 

Cada presión del botón rojo inserta una mo- 
neda adicional, La primera juega la línea cen- 
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tral. La segunda juega la línea superior. La 
tercera juega la línea inferior. 

El premio se incrementa en forma progre- 
siva. 

2. Mueva el joystick hacia la parte superior antes 
de ingresar monedas y aparecerá el estado de 
su dinero. 

3. Presione SELECT antes de insertar alguna mo- 
neda. En pantalla se despliega una posible 
combinación de jugadas y sus respectivos 
pagos. 

4. Para usuarios con Unidad de Disco al presio- 
nar OPTION antes de ingresar una moneda, 
salvará ¡os progresos de su dinero en un ar- 
chivo al disco. 

Las técnicas utilizadas en la programación de 
este popular Juego de Temporada (durante las tar- 
des de febrero en nuestra concurrida Viña del 
Mar) incluyen; 

— manipulación de string . 

— crear un nuevo set de caracteres (en columna 
aparte se explica en extensión el Set de Carac 
teres) . 
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TIPIANDO: continuación 


Y ahora a probar suerte en e! Casino MUNDO- 
ATARI, que ¡lega a su hogar en este mes de vera- 
neo. 

Descripción del juego: 

10-1130 Inicial ización del programa. 

1147-1370 Creación de un nuevo set de carac- 
teres. 

1398-1405 Rescata valores progresivos del disco 
si existe archivo. 

1597-2013 Dibuja la máquina de juego. 

2997-3100 Mueve una moneda desde la pila hacia 
la abertura superior. 

3107-3122 Verifica el movimiento del joystick y 
la tecla presionada de consola. 

3130-3280 Cuenta el número de veces al presionar 
el botón rojo y modifica variables. 

3290-3330 Desactiva el modo atract. 

3997-4400 Busca número random para posicio- 
nes de juego. 

4997-6180 Lee combinaciones apropiadas y veri- 
fica las ganancias. Paga y modifica variables. 
6497-6600 Gana y paga et progresivo. 

6997-7090 Subrutina que edita la cartilla de pagos 
7997-8100 Subrutina que edita el progreso de 
su juego. 

8997-9090 Iniciaiiza datos de pago. 

14998-15030 Subrutina que envía datos del juego 
al disco. 

Hasta el próximo mes, amigos. 



3$ C321 , LIN£1$ 13) , LIN£2$ 131 , LIME3$ C3) 
1055 DIH «N$ (4) , CHECKS 13) , PAY0FFS (16) 
, TEN$ (3) , GUINDAS (2) 

1660 DIH PLUH$ C3J f HARAN J$ C3) , CAHP$ C3) , 
BAR$ €3) , DIAHANTS (3) 

1665 DIH HDNE$C19);HONE$=») > <:H0NE$fl9) 
=H0NE$ 5 H0NE$ (2) =H0NE$ 

1076 RUEDA1$= I *=>X?0XI=X>?X0ZX=>X?0XZ=K 

1880 RUEDA2$= M ze?x>-zxe?>x=zrx?>=xze?x 

>=ZX6?Z0 lt 

1090 RUEDA3$=: ,> >ZKCeX>ZK=eX>ZX=6X>ZX=8X 

>zx=ex>z" 

1108 PLUHS^’eM» : NARANJ$=">>>" 

1118 CAHP$= ,, === ,, :8ARS=«ZZZ m 
1126 DIAHANT^ 1 ' C E V* : 6^IHDft$="?? , ■ 

1138 TÉHS^XXX" 

1147 REH 

Ü50 DATA 255,255,255,255,255,256,255, 
255 

1151 DATA 15,15,31,31,63,63,127,127 

1152 DATA 240,240,248,248,252,252,254, 

254 

1153 DATA 1,1,3,3,7,7,15,15 

1154 DATA 128,128,192,192,224,224,240, 

248 

1155 DATA 255,255,255,255,0,0,255,255 

1156 DATA 15,15,15,15,15,15,15,15 

1157 DATA 240,240,248,240,240,240,240, 

248 

1158 DATA 255,239,247,251,253,251,247, 
239 

1159 DATA 255, 247, 2319, 223, 191 , 223,239, 
247 

1168 DATA 0,0,68,126,126,126,68,24 

1161 DATA 24,24,24,24,24,24,24,24 

1162 DATA 24,24,24,24,24,248,248,8 

1163 DATA 231,195,195,195,129,0,231,25 
5 

1164 DAT A 137,247,195,129,123,129,195, 

255 

1165 DATA 248,243,237,158,9,144,249,25 
5 

1166 DATA 227,253,194,130,131,131,135, 
255 

1167 DATA 255,209,213,213,213,209,255, 
255 

1168 DATA 255,255,129,123,129,255,255, 
255 

1169 DATA 247,227,193,128,193,227,247, 
255 

1178 DATA 254,127,254,127,254,127,254, 
127 
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TIPIANDO: continuación 




1171 DATA 60, 126, 209, 213,209,126,68, 8 

1172 DATA 224,192,12*1018*128,192,224 

1173 DATA 7,3,1,0,0,1,3,7 
1288 CHBASE= ÍPEEK (742} ~2)*256 

1210 FOR 1=8 TO 511 : POKE CHBASE+I,PEÉK 

(57344+IJ ¡HEXT X 

1240 FOR 1=40 TO 111 

1250 READ CH : POKE CHBASE+I,CH:NEXT I 

1280 FOR 1=120 TO 127 

1290 READ CH : POKE CHBA5E*I,CH:HEXT I 

132B FOR 1=208 TO 283 

1330 READ CH : POKE CHBASE+I,CH:HEXT I 

1348 FOR 1=448 TO 455 

1358 READ CH:POKE CHBASE+I , CH ; HEXT I 

1380 FOR 1=464 TO 511 

1378 READ CHiPOKE CHBA5E+I, CHíNEXT I 

1488 TRAP 1404 ¡ OPEH «3,4,0,”D: IMPREMI O 

. IHF*' 

1401 INPUT 83; PREMIO : PAYOFF$=STR$ (PREH 
10) : 5L=LEH (PAYOFFS) :POT=PREMI0 

1402 GOSUB 9008 

1483 CLOSE »3:GOT0 2008 

1484 TRAP 48000: CLOSE tt3:PAYOFF$= H 8.60 




1405 REM 

1598 REM *IHFORN. GRAFICA TRAGAMOKEDA 
1600 DATA 8,5,5,5,5,5,5,5,32,32 
1610 DATA 11,5,5,32,32,32,5,5,12,32 
1620 DATA 11,5,10,18,10,10,10,5,12,58 
1638 DATA 11,5,61,5,98,5,62,5,12,59 
1640 DATO 11,5,62,5,64,5,98,5,12,59 
1650 DATA 11,5,88,5,63,5,88,5,12,59 
1660 DATA 11,5,10,18,10,18.10,5,12,59, 
32,93,32 

1670 DATA 6,5,5,5,5,5,5,5,7,59,32,92,3 
2 

1680 DATA 5,5,126,32,32,32,127,5,5,60, 
32,92,92 

1690 DATA 5,5,5,5,5,5,5,5,5,32,92,92,9 
2 

2000 GRAPHICS 18 

2801 SETCOLOR 8,8,14: SETCOLOR 1,1,10 

2082 SETCOLOR 2, 6, 8 ¡SETCOLOR 3,10,6 

2083 POKE 756, CHBA5E/256 
2884 RESTORE 1600 


2005 ? #6;" 


PREHIOIPROGRESiyO! 


II « 
I t 


2006 FOR Y=2 TO 7: FOR X=6 TO 15 

2087 READ CH:P05ITI0H X,Y:? 86;CHR$CCH 
) 

2088 NEHT XíHEXT Y 

2089 FOR Y=8 TO 11 ¡FOR H=6 TO 18 

2018 READ CH : POSITIOH H,Yí? t)6;CHR$(CH 
1 
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2811 NEHT XiNEXT Y 

2812 POSITIOH 0,2:? 86 J " jgdo . 11 : P05ITIO 
N 1,3:? tfSl'^'ÚNTCXH) 

2013 POSITIOH 0,5:? ttBr'onadO^POSITIO 
H 1,6:? #6 ; "$" í IHT (OH?) 

3000 POSITIOH 7,1:? 86; ,, $ t, ;PAYÜFF$ 

3010 5PXR1=1 : POT=PREHIO 
3020 COLOR 5:PL0T 7,S:DRAHT0 7,7:PL0T 
13,5:DRANT0 13,7 
3630 FOR Y=8 TO 3 STEP -1 
3O40 COLOR 32ÍPL0T 17, Y 
3058 COLOR 93:PL0T 17,Y-1 
3668 FOR DELAY=1 TO 15 ¡HEXT DELAY:HEXT 
Y - s 

3878 FOR H-17 TO 15 STEP ~1 
3080 COLOR 32:PL0T X,2 
3890 COLOR 93:PL0T R-1,2 
3180 FOR DELAY=1 TO 15 ¡HEXT DELAY ; HEXT 
X 

3110 IF BET=0 AHD STICK(0)=14 THEH 780 

* 

0 

3115 IF BET=8 AHD PEER (53279) =5 THEH 8 


3126 IF PEEK(53279)=3 THEH 15808 

3130 IF STRIG(0)=1 THEH 3280 

3140 SOUHD 0,141,14,18 

3150 FOR DELAY=1 TO 10:HEXT DELAY 

3160 SOUHD 0, 8,8,0 

3170 BET=BETU 

3180 IF BET<4 THEH POT=POT+0.84:IH=IH+ 

8.1 

3181 POSITIOH 2,3:? #6¡" " 

3182 POSITIOH 2,3:? 86;IHT(IM) 

3190 IF BET>3 THEH BET=3 
3288 IF BET=3 THEH 3260 

3218 IF BET=2 THEH 3250 

3228 COLOR 32:PLQT 14,2 

3230 COLOR 93:PL0T 11,3 

3248 COLOR 13:PL0T 7, 6 ¡COLOR 15:PL0T 1 

3,6:G0T0 3278 

3250 COLOR 93!PL0T 18, 3 ¡COLOR 13:PL0T 

7, 5: COLOR 15 ¡PLOT 13,5 ¡SOTO 3270 

3260 COLOR 93 : PLOT 9,3:C0L0R 13: PLOT 7 

, 7:C0L0R 15: PLOT 13,7 

3270 FOR DELAY=1 TO 50:KEXT DELAY 

3280 IF STICK(O) O 13 THEH 3110 

3296 POKE 77,8 

3308 IF BETÍi THEH 3110 

3318 POSITIOH 9,3:? 86,*” * 

3328 PAY0FF$=5TR$ CPOT) : SL=LEH (PAYOFFS) 
3330 GOSUB 90«0 

4000 POSITIOH 7,1:? M6í ,, $ M jPAY0FF$ 

4081 SOUHD §,35,4,6 
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TIPIA N DO: con tínuación 



4018 COLOR 32 í PLOT 15,4;6RAHT8 15,7 

4020 COLOR 58: PLOT 15,8 

4838 FOR RELAY=1 TO 25 ¡NEXT RELAY 

4831 SOUNO 8,8,8, 0 

4832 FOR RELAY=1 TO 48;NEKT RELAY 
4848 COLOR 59 ! PLOT 15,8:RRAHT0 15,5 
4858 COLOR 58 ¡PLOT 15,4 

4868 FOR SPIN=i TO 18+(RN6(l)tt30+l> 
4878 POSITION 8,5:? N6,*RUE6A1$C5PIN1,5 
Plttl) 

4888 POSITION 18,5:? »6;RUE0A2$CSPINI, 
SPINi) 

4898 POSITION 12,5;? tt6,‘RUE6A3$(SPXNl, 
SPINI) 

4188 POSITION 8,6¡? tt6jRUE6Al$(5PINl+i 
, SPINI+i) 

4118 POSITION 18,6:? 86; RUE6A25 (SPINI + 
I, SPINl+i) 

4128 POSITION 12,6!? 86;RUE6A3$(5PIN1+ 
1, 5PIN1+I) 

4138 POSITION 8,7:? 86 ; RUE6A1S (SPIN1+2 
,SPINl+2) 

4148 POSITION 18,7¡? 86;RUE6A2$(5PIN1+ 
2,5PINl+2) 

4158 POSITION 12,7¡? 86;RUE6A3$(5PIN1* 
2,5PINI+2) 

4168 SPIN1=5PIN1+1:S0UN6 8,S9,8,4:S0UN 
O B, 8,8,0 

4178 IF S PIN!) 38 THEN SPIMi=I 
4188 NEXT SPIN 
4198 SPIN2=5PIN1 

4280 FOR 5PIN=1 TO (RNR(1)»30+1> 

4218 POSITION 18,5:? 86;RHE0A2$(5PIN2, 
SPIN2) 

4228 POSITION 12,5:? 86;RUERA3$(SPIN2, 
SPIN2) 

4238 POSITION 18,6:? 86;RUE6A2$(5PIN2+ 
1 , 5PIN2+1I 

4248 POSITION 12,6!? «6; RUEDA 3$ CSPIN2* 
1, 5PIH2+1) 


4258 POSITION 18,7:? 86;RUE6A2$(SPIN2+ 
2,5PIN2+2) 

4268 POSITION 12,7:? 86jRUE6A3$CSPIN2+ 
2, SPIN 2+2) 

4270 FOR RELAY»! TO 6 ¡NEXT RELAY 
4288 5PIN2=SPIN2+1 : SOUNR 6,58,8,8¡S0UN 

R 8,8,8, 8 

4298 IF SPIN2>38 THEN SPIN2=1 
4388 NEXT SPIN 
4318 SPIN3=SPIN2 

4328 FOR SPIN=1 TO (RN6(1)*30+1> 

4338 POSITION 12,5:? H6}RUERA3$CSPIN3, 
SPIN3) 

4348 POSITION 12,6 ¡? «6 J RUER A3$ (5PIN3+ 
1, 5PIN3+1) 

4358 POSITION 12,7:? 86;RUE6A3$CSPIN3+ 
2, 5PIN3+2) 

4368 FOR RELAY=1 TO 9 ¡NEXT RELAY 
4378 SPIN3=SPIN3+i : SOUNR 0,5O,8,8:S0UN 

R 8,8, 8,0 

4388 IF SPIN3>38 THEN SPIN3=1 
4398 NEXT SPIN 
4488 SPIN1=5PIN3 

5088 LOCATE 8, 5, X2 I LOCATE 8,6,XI:L0CAT 
E 8,7,X3 

5010 LOCATE 18, 5, Y2: LOCATE 18,6, YULOC 
ATE 10,7, Y3 

5828 LOCATE 12,5,22 ¡LOCATE 12,6,Z1¡LQC 
ATE 12, 7,Z3 

5830 LINE15 (1, 1) =CHR$ I XI) : LINE1$ (2,2)= 
CHBS CY1) i LINE1$ (3, 3) =CHR$ (Zl) 

5048 LINE2S (1,1) =CHR$ (X2) : LINE2S (2,2)= 
CHR$ ( Y2) ¡ LINE2S (3,3) =CHR$ (Z2) 

5858 LINE3$(1, 1) =CHR$ (K3) :LINE3$(2,2) = 
CHR$ (Y3) : LINE3S (3, 3) =CHR$ (Z3) 

5860 CHECK$=LINE1$ 

6888 IF CHECK$=6IANANT$ THEN 6508 
6818 IF CHECKS=BAR$ TNEN PAY=PAY+2.5:0 
UT=OUT +2.5: 6=6+25 

6820 IF CHECK$=CAHP$ THEN PAY=PAY+1.8; 
0UT=DUT+1 . 8 : 6=6+18 

6838 IF CHECK$=PLUH$ THEN PAY=PAY+1.4: 
0UT=0UT+1 . 4 : D=R+14 

6048 IF CHECIt$=NARANJ$ THEN PAY=PAY+1¡ 
0UT=0UT+1 : R=R+18 

6058 IF CHECKS(1,2)=GUINRA$ THEN PAY=P 
AY+0 . 5 : OÜT=0UT+8 . 5: 6=6+5 : COTO 6070 
6860 IF CKECK$ (1 , 1) =GUIN6 A$ (1,1) THEN 

PAY=PAY+8 . 2 ¡OUT=0UT+O . 2 : 6=6+2 

6865 IF CHECK$=TEN$ THEN PAY=PAY+8.i:0 

UT=0UT*8.i:D=D+i 

6878 IF BET=3 THEN BET=BET-1;CHECK$=LI 
NE3$¡C0T0 6888 
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TIPIANDO: continuación 


6989 XF BET=2 THEN BET=BET~1;CHECK$=LI 

NE2$:G0T0 6998 

6898 8ET=8 ; HIN$=STR$ (PAY) 

6188 IF LEN(STR$(PAY))=3 THEN HIN5(4,4 
i z ,, # n 

6118 IF LEN (5TR5 (PAY) 1 “1 THEN HIN5(2,4 

^".eS)" 

6129 ZF PAY-8 THEN 3929 

6121 IF 9=1 THEN P05ITI0N 9 f 18í? tt&j ** 

1 ** 

6122 IF 9=2 THEN POSITIOH 9,18:? H6;» 
13" 

6123 IF D>2 THEN POSITION 9,18:? N6;"] 
33" 

6124 FDR 5=1 TO D: SOUNR 8,26,18,12 

6125 FOR DELAY=1 TO 1¿:NEXT RELAY 

6126 SOUNR 8, 8, 8,8: FOR 9EUY=1 TO 5 

6127 NEXT RELAY ¡NEXT 5:9=8 
6138 POSITION 1,8:? «6; "ganas" 

6148 P05ITION 8,9:? 86;"5";HIN$ 

6158 FOR 9ELAY=1 TO 208 ¡NEXT RELAY 

6151 P05ITI0N 2,6:? «6; " 11 

6152 POSITIOH 2,6:? H6;INT(0UT) 

6168 POSITIOH 1,8:? tt6; M " 

6178 POSITIOH 8,9:? «6;" 

6175 POSITIOH 9,18:? N6;" " 

6188 PA¥=0;GOT0 3828 

6598 POSITIOH 9,18:? 86; "3 31“ 

6584 FOR 9=1 TO 18 ¡SOUNR 8,26,18,12 
6586 FOR RELAY=1 TO 15:NEXT RELAY 
6568 SOUNR 8, 8,0,8: NEXT R 
6518 FOR Y=li TO 2 5TEP “1 
6528 POSITIOH 8, Y:? 86 J NONES 

6525 FOR 9=1 TO 18: SOUNR 8,26,18,12 
6538 FOR RELAY=i TO ISíNEXT RELAY 
6548 SOUNR 9, 8,8,8: NEXT 9; NEXT Y 
6558 POSITIOH 3,8:? H6¡" LO GANASTE! " 
6568 FOR 9=1 TO 15:SETC0L0R 2,8,14 
6578 FOR RELAY =1 TO 25: NEXT RELAY 
6589 SETCOLOR 2,6,8 :FOR 9ELAY=i TO 25: 
NEXT RELAY 
6598 NEXT 9 
6595 OUT=OUT+POT 

6668 BET=8 : P0T=9 : PREHIO=POT : PAYOFF5="8 

.88 " : GOTO 2808 

78 8 GRAPHICS 18:P0KE 53279,8 

7818 POSITIOH 2,2:? i*6;"JUGAD0 $",* IN 

7926 POSITIOH 2,4:? 86;"&ANA9ü $";0MT 

7625 9IF=0ÜT~IN 

7636 IF 9IF>=8 THEN POSITIOH 2,6:? B6; 
“NETO $";RIF 

7835 IF 9IFC8 THEN POSITIOH 2,6:? N6j" 
NETO ABS (RIF3 


7648 IF 0UT=8 THEN 7878 
7858 TRAP 7876 

7869 POSITIOH 2,8:? N6 J “RETORN "J INTTt 
0UT/IN1XÍ88);" X" 

7878 TRAP 48088 : POSITION 1,16:? tt6;“CA 

RGA gDESD P. JUGAR" 

7888 IF PEEK (53279) 06 THEH 7089 
7998 PREHIO=POT : GOTO 2986 


8968 ? S6;CHR$tlZ5) 
8885 POSITIOH 2,1:? 
10 " 

8910 POSITIOH 2,2;? 
28" 

8020 POSITIOH 2,3:? 
50“ 

8030 POSITION 2,4¡? 
00 " 

8848 POSITION 2,5:? 

48" 

8850 POSITIOH 2,6:? 
80" 

8060 POSITION 2,7:? 
50" 

8865 POSITION 3,8:? 
8078 POSITION 2,9:? 
55!" 


POKE i 

53279 

,8 


86;"X 

X 

X 

* a a * 

$8. 

H6;"? 



• * • • 

58. 

1 

tt6í"? 

m 


a ama 

58. 

H6;"> 

> 

> 

t 1 i * 

51. 

86; "8 

8 

e 

• III 

$1. 

ft6j M = 

- 


f * a a 

$1. 


Z 

z 

i i i t 

52. 

*t6j"super 

jackpot" 

#6¡“í 

[ 

i 

aita 

$55 


J 


8880 POSITION 8,11:? 116; "CARGA Start p 
.JUGAR" 

8998 IF PEEK (532 79) 06 THEN 8090 
8186 PREHIO=POT : GOTO 2609 
9908 IF P0T<18 AND SL=4 THEN RETURN 
9818 IF POTUee AND SL=1 THEN PAYOFF$( 


2, 7) =".88 " 

9020 IF POT<108 AND 5L=2 THEN PAY0FF5( 


3, 7) =".00) " 

9838 IF POTU08 AND SL=3 THEN PAY0FF5( 
4>7)= fI 8 RETURN 

9046 IF P0T<1@8 AND SL=4 THEN PAYOFFSf 


5. 7) ="0 "{ RETURN 

9850 IF POT<108 AND SL=5 THEN PAY6FF$( 

6.7) =" "¡RETURN 

9858 IF POT (1686 AND 5L=3 THEN PAY0FF5 
(4,7) =".08 " 

9978 IF POT (1806 AND SL=4 THEN PAY0FF5 


(5,7) ="8 " 

9888 IF P0T(1686 AND SL=5 THEN PAY0FF5 


(6,7) =“8 " 

9698 RETURN 
15668 PREHIO=PQT 

15818 OPEN t#3,8,8,"D:THPREHI0.INF" 
15828 PRINT «3; PREMIO: GLOSE K3 
15838 REH 

19088 ENR • 
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TECNICAS 



La columna Técnicas finaliza este mes el tema 
Set de Caracteres con una explicación a la modifi- 
cación del Set utilizada en el juego del mes TRA- 
GAMONEDAS (nos referiremos a las líneas 1150- 
1370, ubicadas en las páginas 18-19}. 

■ 

Diferenciaremos en la sección del listado: 

1 . Líneas con DATA para los nuevos caracteres 
modificados (1150-1173). 

2. Líneas de rutina para preparar y modificar el 
Set (1200-1370). 

r - ► 1 t 

Comentarios de las líneas de programa: 

1200 Define localización inicial disponible para 
ubicar 51 2 caracteres del nuevo Set. La va- 
riable CUBASE almacena este valor. 


RAM ROM 



CHBASE 


1210 Mueve 512 bytes de! Set desde la localizo 
ción en ROM (57344 inicial) hacia la nuevi 
en RAM (CHBASE localización iniciafí 



mueve 512 bytes 


CHBASE 57344 
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TECNICAS 


1240-1250 Modifica nueva forma para los carac- 
teres ubicados en posición 5 a 1 3. 

NOTA: En las figuras siguientes se ha ampliado ei 
¡ bloque CHBASE para determinar con más claridad 
el efecto del programa en la modificación de carac- 
teres en dicho bloque. Los 64 caracteres resultan de 
dividir 512 por 8 bytes ; que forman cada carácter . 


0 63 


1280-1290 Modifica nueva forma para carácter 
ubicado en posición 15. 



Escriban indicando en el sobre: 



1. ¿Qué falta a estas líneas explicadas para que 
se active el nuevo Set? Indique línea del pro- 
grama Traga monedas en que se ejecuta. 

La columna De byte en byte de números an- 
teriores te proporciona una ayuda. 

2. ¿Cómo se determina ia ubicación en el Set 
para un carácter específico. Ejemplo líneas 
1 280-1 290? 




1320 Modifica nueva forma para caracteres ubica- 


dos en posición 26 a 32. 



1340-1350 Modifica nueva forma para carácter 


ubicado en posición 46. 



1360-1370 Modifica nueva forma para caracteres 


ubicados en posición 58 a 63 


El tiempo de ¡metalización de TRAGAMO- 
NEDAS es una consecuencia del movimiento de 
bytes de esta rutina. 

Una optimización posible para disminuir el 
tiempo es utilizar la función USR y la rutina 
MOVER proporcionada por la columna USR. 

Ahora unas interrogantes de participación 
con premios para los lectores de Técnicas: 

b 
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El próximo número iniciaremos una nueva 
técnica: el estudio de los Player-Missíles, a pedido 
de un gran número de lectores. 


Hasta entonces. • 
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Entrevista ai ganador de! Con- 
curso de Software def ATAR i 
CLUB de Chite. 


Nombre: Rodrigo Soto Bertrán 
Colegio; Cursa 3o. Medio en ei 
Colegio Sagrados Corazones 
de Manquehue. 

Edad: 1 7 años. 

Tiempo de programación: 6 años 
Nombre del programa ganador: 

TABLERIN 

Objetivos del programa: 

— Enseñar ei concepto de multi- 
plicación, 

— Representar gráfica de la ope- 
ración. 

— Concepto de con mutatividad. 

— Aprendizaje de ias tablas del 
1 r 2, 3, 4, 5 y 6, 


¿Por qué este programa? 

— Como consecuencia de que 
ATARI se encuentra orientado 
al área educacional y gracias al 
dominio de programación BA- 
SIC y rutinas en máquina que se 


incorporan por medio de la fun- 
ción USR. 

Ei apoyo pedagógico de mi 
madre (María Teresa), que con 
su experiencia permite la duali- 
dad vital en la producción del 
software (programador -especia- 
lista). 

¿Por qué te presentas al con- 
curso? 

Supe del concurso a través de 
la revista MUNDOATARI y te- 
nía la confianza e imaginación 
necesaria para crear un programa 
original. 

¿Cuál fue tu primera reacción 
al conocer el resultado? 

Feliz y siempre abrigaba la es- 
peranza de ganar y la problemá- 
tica de la selección de los pro- 
ductos. 

¿Por qué seleccionaste como 
premio el computador ST? 

En primer lugar creía que era 
demasiado caro, pero al enterar- 
me de su precio pude cumplir 
mi anhelo. • | 

¿Qué le recomiendas a los lee- 


Resultado 
concurso 


tores que se encuentran en la 
práctica del ATARI BASIC co- 
mo lenguaje inicial de progra- 
mación? 

Que se informen lo suficiente 
para aprender como autodidac- 
tas las técnicas y secretos que 
encierra el computador: Player, 
Color, Sonido. 

¿Cuáles son tus proyectos a 
futuro? 

Quiero terminar la enseñanza 
media y luego estudiar Física en 
la universidad para dedicar el 
tiempo a la investigación. 

¿Cuáles son tus proyectos en 
relación a la programación 

ATARI? 

Pienso dedicarme a producir 
programas utilitarios que me sir- 
van en mi carrera, 

¿Qué posibilidades de comer- 
cialización ves en tu programa 
Tablertn? 

Creo que es un programa co- 
mercial, en la medida que la co- 
munidad Atariana se informe de 
él. • 


MUNDOATARI 


Roberto Sepúiveda, 
Ejecutivo de COELSA 
Computación, acompaña 
a Rodrigo Soto, feliz 
ganador de! concurso 
de so ftwa re ATAR i. 


ENTREVISTA 
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Colegios con ATARI 


Rosa Cristina Díaz 
comparte ei triunfo 
con Luis Salgado y 
Pablo Parra 


Establecimiento visitado: 

Colegio DIEGO PORTALES 
Recoleta 5599, Santiago 


Continuando con el ciclo de 
visitas a colegios con ATARI nos 
dirigimos esta vez al extremo 
norte de Santiago. 

Aún se percibe en el ambiente 
del colegio el impacto y alegría 
de haber sido uno de los estable- 
cimientos premiados en el Con- 
curso de Software Educacional, 
organizado por COELSA Com- 
putación. 

Pudimos comprobar la fla- 
mante configuración incorpo- 
rada al Taller de Computación. 

Las señoritas Rosa Cristina 
Díaz y Clarisa Cortez son las do- 
centes encargadas del Taller. 
Ellas nos explican que el colegio 
es uno de los 6 que se encuen- 
tran incluidos en el CORESAM 
(ver reportaje en MUNDOATA- 


Rt No. 6, página 6) bajo la su- 
pervisión de don Ricardo Blanch. 

El Taller funciona desde hace 
2 años con 6 equipos cedidos 
por lá Corporación Municipal. 
Ei año 1987 atendió un total de 
205 alumnos, desde 7o. Básico 
hasta 4o. Medio. Las actividades 
giran en torno a 2 niveles de 40 
horas cada uno: 

— Nivel A: grado inicial, donde 
ios alumnos aprenden instruc- 
ciones elementales BASIC. 

— Nivel B: en él se manejan ins- 
trucciones más avanzadas y se 
promueve la elaboración de 
programas de reforzamiento. 

En 1987 se inició la experien- 
cia con lenguaje LOGO con 10 
alumnos y resultados promiso- 
rios. 

¿ Cómo llegó el colegio a! con- 
curso ? 

t 

* Fue una ocasión para incenti- 
var la participación y sentido de 
competencia, sin hacerse ningu- 
na esperanza de premio. El Cen- 


tro de Padres apoyó económica- 
mente al Colegio para su ins- 
cripción. Luego vino el momen- 
to de elegir el tema, que final- 
mente quedó en el área de geo- 
metría "ía circunferencia y sus 
elementos", desarrollado duran- 
te el año por los alumnos Luis 
Salgado y Pablo Parra, ambos de 
2o, Medio. Ellos investigaron y 
perfeccionaron su programa has- 
ta incorporarle audio con música 
andina de fondo." 

Nosotros fuimos testigos de la 
demostración y creemos que el 
premio es un merecido recono- 
cimiento al esfuerzo de este 
equipo humano. 

¡Felicitaciones! • 



FEBRERO 1988 


25 











TESTIMONIO 


Mi ATARI y yo 


Tenemos la evidencia de un 
amigo suscriptor, don Fernando 
Cuevas Moya, de la cual quere- 
mos hablar en esta ocasión. 

Consideremos este caso co- 
mo una prueba real de los plan- 
teamientos de MUNDOATARI. 

Don Fernando es actualmente 
socio de la firma RENACE M.R., 
cuya línea se centra en la recupe- 
ración de elementos electrónicos 
de alta tensión mediante el bobi- 
nado de fly backs y otros com- 
ponentes. 

RENACE con ATARI 

La configuración usada por 
nuestro lector es ’l ATAR! 800 
XL, 1 diskettera 1050, 1 moni- 
tor blanco y negro y una impre- 
sora Se i kosha. 

Las principales aplicaciones, 
dadas al equipo consisten en; 


1. Manejo de correspondencia 
con el ATARI WRITER, el 
cual mantiene en memoria 
incluso el encabezamiento y 
pie de página de la empresa. 
Este mismo software sirve pa- 
ra guardar un archivo de con- 
tratos de trabajo, órdenes de 
compra, curriculum, profor- 
mas, circulares, listas de pre- 
cios, etc. 

2. VISICALC: el que resuelve 
semanalmente las liquidacio- 
nes de salarios del personal. 
Este software permite liqui- 
dar hasta el último segundo 
de sobretiempo y regalías, en- 
tregando además el saldo pen- 
diente para la próxima se- 
mana. 

Otra aplicación que está pro- 
cesando actualmente es la 
confección de un cuadro esta- 
dístico de demanda y produc- 
ción durante 1987. 


3. MULTI FICHA: usado desde 
1986 para el control de las 
órdenes de trabajo. 

Cada ficha contiene número 
correlativo, fecha, identifica- 
ción del cliente y producto. 
Mientras el trabajo se encuen- 
tra pendiente en el taller, el 
programa entrega día a día 
e! listado de los trabajos pen- 
dientes del mismo día o del 
que se requiera. Otras Opcio- 
nes son los trabajos pendien- 
tes por cada operario, o en 
bodega, también es posible 
establecer una lista de traba- 
. jos encargados por algún de- 
terminado cliente, etc. 

Cada diskette. tiene una capa- 
cidad de 735 ingresos, lo que 
le da una utilidad real de un 
mes por cara. 

4. SYN FILE +: se está ini- 
ciando un archivo de clien- 
tes pensando incorporar en 
un futuro próximo el ATA- 
Rl WRITER PLUS para 
agilizar el despacha de co- 
rrespondencia. 



Nuestro amigo Fernando 
Cuevas- finaliza su testimonio 
expresando su intención de 
reemplazar parcialmente su 
actual configuración por e 
ATARI 520 ST. 

Sorpresa . . . 

Pero su quehacer con el 
ATARI no termina allí, una 
vez en casa debe orientar a sus 
hijos,' de 11 y 12 años, quienes 
se inician actualmente con una 
casetera y un ATARI 800 XL, 

Un ejemplo digno de desta- 
car en esta columna. # 

MUN DOATARI 
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Monster Smash 

. - 1 - ) 


En esta ocasión te encuentras 
totalmente solo en un abando- 
nado cementerio, 

De pronto cunde el pánico, 
cuando se produce una fuga ma- 
siva de monstruos. Tú te encon- 
trarás ante dos posibilidades: 
huir despavorido dei lugar, o 
bien, aplastar a todos los mons- 
truos con la ayuda de una má- 
quina para esta emergencia 
— antifuga de monstruos monster 
smash. 

Esta máquina es el último 
obstáculo que existe entre los 
monstruos y la ciudad. Tu deber 
es operarla de modo tal, que 
ningún monstruo logre escapar 
y pueda llegar a la ciudad (lo 
que serta un verdadero desastre). 

Ahora viene una pregunta 
importante ¿cómo usar la mons- 
ter smash? La respuesta es igual- 
mente simple: mediante el botón 
rojo y el bastón del joystick, 
en los movimientos hacia arriba 
y abajo. De esta manera logras 
bloquear la salida de los mons- 
truos y los obligas a entrar en la 
máquina. 

El próximo paso consiste en 
aplastar a los monstruos con 
unos pesados bloques de granito 
(que se controlan con el botón). 

Eso es todo. E! único proble- 
ma es que los monstruos van au- 
mentando su velocidad y se hace 
cada vez más difícil atraparlos y 
aplastarlos. 

Estamos seguros que te diver- 
tirás mucho con este juego, que 
aún cuando su gráfica no es muy 
buena, reemplazan este punto 
la idea y originalidad del juego. 

Eso es todo por hoy. Nos ve- 
remos nuevamente en marzo 
cuando volvamos a clases, con 
otra entretenida columna de 
videomanía, como siempre en 
tu revista MUNDOATARI. • 
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CALIFICACION 
I nota da 1 a 7) 


Gráficos 

: 6.0 

Sonido 

: 6.0 

Animación 

: 6.5 

Dificultad 

: 6.5 

Originalidad 

: 7.0 

Promedio 

: 6,4 


PROGRAMAS 







I 




1. NIVEL INICIAL 


Cualquier tipo de programa o rutina que muestre e! 
grado de avance de sus autores en la programación 
ATARI. Estas contribuciones pueden entregarse sólo escritas. 

Todos ios meses publicaremos una de estas participaciones, seleccionándolas de acuerdo 
a pautas precisas. La fecha de cierre para estas contribuciones será el dfa 30 de cada mes 

El material no seleccionado será devuelto a su remitente. 


Por razones de planificación se proporciona en este número 
la nueva pauta de contribuciones para los lectores de 
MUNDOATARL 

En esta nueva definición de bases para los miles de 
colaboradores se establecen dos niveles de 
participación, conforme a los conocimientos 
y dominio del computador A TARI: 


NIVEL AVANZADO 


Para este nivel publicaremos sólo programas 
que se soliciten mediante este llamado. 

Estos programas serán fundamentalmente para ayudar al gran número de usuarios que 
desean utilizar el ATARI en alguna actividad específica. 


a* 


Contribuciones 

1988 
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Primer llamado: 

FEBRERO-MARZO 1988 




Con este título se designa el programa completo sugerido en la 
columna CLASES del ano 1987: El Sistema Periódico ATARI. 


BANC02 


Este programa será una nueva versión o la modificada, correspon- 
diente al programa publicado por nuestra revista en los meses de 
enero y febrero de 1988. 



Este programa será de utilidad en los edificios de departamentos, 
para manejar la información relacionada con Gastos Comunes. 


Programa para manipular el STOCK mínimo de 200 artículos de 
una empresa. 


Las contribuciones de nivel avanzado deben enviarse en el medio magnético que 
se utilice (casete o diskette). En lo posible debe proporcionarse la modificaciones 
para compatibiltzarlo con el otro periférico. 

Se ruega indicar el nivel en que usted participa. 

Las contribuciones que se publiquen del Nivel Avanzado , serán 
premiadas con $ 10.000 en software del Catálogo ATARI { sólo 
software). 


FEBRERO 1988 
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í PROGRAMAS 



Software para 
ATARI ST 

Presentamos una fista del software disponible 
exclusivamente para socios del Club ST 
de MUNDO ATAR!. 

Recuerde que el requisito fundamental para 
ser miembro del Club es ser suscriptor 
de nuestra revista. 



Titulo 

Descripción programa 

1 

Manu al 

Disco 

Tipo 

monitor 

Prec 
Prog. 1 

¡o $ 

Manual 

1. 

FIRST WORD PLUS 

■* ' - 

Procesador de texto. Trabaja con 




9 «fin 




ambiente gráfico manual incluido 

no 

1 

C y M (*) 

Z*Ow 


2. 

VIP GEM 

Planilla de cálculo similar a Lotus 








1, 2, 3. Con GEM 

si 

2 

Cy M 

5.000 

2.000 

3, 

A-CALC 

Planilla de cálculo fácil uso 

Si 

1 

Cy M 

3.000 

600 

4. 

DBMAiM 

Base de datos, opcional compilador 

* 







Similar al Dbase 1 II 

si 

2 

Cy M 

5.000 

3.000 

5. 

DEGAS ELITE 

Diseño gráfico y dibujo 

si 

1 

Cy M 

3.000 

1.000 

6. 

CAD-3D 

Diseño gráfico, dibujo que permite 








rotar y deformar figuras en 3 dimens. 

si 

1 

Cy M 

2.500 

300 

7. 

EASY-DRAW 

Diseño gráfico arquitectónico. Planos 

si 

2 

C y M 

4.000 

1 .000 

8. 

GRAPHICS ARTIST 

Diseño gráfico arquitectónico 

no 

3 

C y M 

5.000 


9. 

FILM DIRECTOR 

Diseño gráfico y animación 

no 

1 

c 

3.000 


10. 

PUBLISHING PARTNER 

Mezcla diseño gráfico y texto. 




ri j— A A 




Diseño publicitario 

sí 

1 

C y M 

2.500 


11. 

PRINT MASTER 

Prog. impresión de posters /tarjetas, etc 

si 

2 

Cy M 

3.500 


12. 

BASIC GFA 

Lenguaje programación compilador 

si 

1 

C y M 

3.000 

A ñAA 


13. 

MEGAMAX-C 

Lenguaje programación C 

si 

1 

C y M 

4.000 

Jt A A A 


14. 

MACRO ASSEMBLER 

Lenguaje programación Assembler 

no 

1 

C y M 

4,000 

¡A AAA 


15. 

MI CROCO BOL 

Lenguaje programación Cobol 

no 

1 

i 

C y M 

4.000 

jk n >a rt 


16. 

PRO FORTRAN 77 

Lenguaje programación Fortran 

Si 

1 

C y M 

4.000 


17. 

PC-DITTO 

Emulador IBM 

si 

1 

C 

2.500 


18. 

MS DOS 3.3 

Sistema Operativo Disk 3/5 IBM 








Disk SF 314 

■ 

SI 

1 

C 

2.500 


19 

MS DOS 3.3 

Sistema Operativo Disk 3/5 IBM 








Disk SF 354 

Si 

1 

c 

2.500 

4 

20. 

DISK DOCTOR 


no 

1 

M 

2.500 


21. 

FLASHS 

Programa de comunicaciones 

si 

1 

C y M 

3.000 


22. 

PC-INTERCOM 

prog. comunicaciones y emulaciones 

si 

1 

C y M 

3.000 


23. 

MAPS & LEGENDS 

Colección de mapas 

no 

1 

C 

2.500 


24. 

ASTRONOMY 

Planetario en el computador 

no 

1 

■ Cy M 

2.500 


i 25. 

PERT 

Control de proyectos estadísticos 

■ 

SI 

1 

Cy M 

2.500 


26. 

THE MUSiC STUDIO 

Prog. creador y editor de música 

si 

1 

c 

2.500 


27. 

KIDTALK 

Sintetizador de voz 

no 

1 

C 

2.000 


28. 

THE ANIMATOR 

Prog. de animación de dibujo 

sí 

1 

C 

2.500 

— 


PROGRAMAS ADMINISTRATIVOS 


29. ESTAD ISTIC 

Paquete de programas estadísticos 
y desarrollo de proyectos 

a- 

SI 

i 

C y M 

3.000 


30. YOUR FINANCIAL 

Programa financiero para e! hogar 

no 

•i 

Cy M 

3.000 


31. CONTABILIDAD 

Contabilidad de negocios, empresas 

no 

i 

C y M 

5.000 


32. FICHAS MEDICAS 

Lleva historial clínico de pacientes 

no 

i 

C y M 

5.000 



{■) C: color, M: mono 


MUNDO ATARI 
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NOTICIA 



JUEGOS 



Título 

Descripción programa 

Manual 

Disco 

Tipo 

monitor 

Precio $ 

Proa. Manual 

33. 

CHESS 

Ajedrez tridímens, múltiples opciones 

no 

1 

C y M (*) 

2,000 


34, 

ARKANOID 

Juego de habilidad, varias opciones 

no- 

1 

C 

2.000 


35. 

WINTER GAMES 

OI ímp radas de invierno 

no 

2 

c 

4.000 


36. 

ST-KARATE 

Pelea de karate en varias ciudades 

no 

1 

c 

2 000 


37. 

MAYOR MOTION 

Carrera auto fantástico 

no 

1 

c 

2 000 


38. 

FLIP SIDE 

Juego Otelo 

no 

1 

c 

1.500 


39, 

RED ALERT 

Guerra defensa de ciudades 

no 

1 

c 

2.000 


40. 

CRISTAL CASTLE 

Entretención y habilidad 

no 

1 

c 

1,500 


41. 

STAR GLAIDER 

Guerra galáctica tridimensional 

no 

1 

c y M 

2.000 


42. 

POOL 

Juego pool 

no 

■ 1 

c 

2 000 


43 

CARDS 

Juego de naipes 

no 

1 

C V M 

2.000 


44. 

GOLF 

Juego de golf 

no 

t 

C 

2.000 


45, 

HEX 

Juego estrategia y acción 

si 

1 

C y M 

2.000 


46. 

STAR BATTLE 

Juego de entretención 

no 

1 

C y M 

1.500 


47. 

STRIP POKER 

Desnde chicas jugando poker 

no 

1 

c 

2.000 


48. 

RENEGADE 

Guerra, táctico y acción 

no 

1 

c 

2.000 


49. 

MONKEY BUSINESS 

Entretención, similar Donkey Kong 

no 

1 

C 

2.500 



(*) C: color, M: mono 
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CLUB 8 BITS 


Amigos lectores, ustedes pueden incor- 
porarse a este exclusivo Club' de suscriptores 
de MUNDOATARI y recibir sus beneficios. 

En esta oportunidad proporcionamos el 
listado de programas disponibles al precio de 
$ 600 para nuestros suscriptores: 

1. Contabilidad 

2. Ingresos y Gastos 

3. Copiadores i 

4. Calendario personal 

5. Juegos Spitfire y Mouse Trap 

6. Juego Superman 

7. Stock y Facturación 

8. Control de gastos familiares 

9. Aplicaciones de Microínformática 


Writer Plus 
Music Painter 
Space Base 
Creative Process 
Colosus Chess 
Bridge 

Orbit a Trip to the Moon 
Word Magic 
Planetarium 
Backtalk 
Club de Video 

Recuerde que para pedir estos progra- 
mas debe pertenecer a nuestro exclusivo 
CLUB 8 BITS. 


CLUB CAS-ATAR I 

Recogiendo el llamado de múltiples lec- 
tores, contestamos creando un nuevo Club 
de Usuarios en Casete, 

La finalidad de este Club exclusivo 
para los usuarios con Unidad de Casete 
y suscriptores de nuestra revista, es dar 
solución a una serie de problemas relacio- 
nados con el uso y mantención de la 
Unidad de Casete. 

Escríbanos para solicitar su afiliación 
y comentarnos sus necesidades. Nosotros 
tenemos una serie de ideas ai respecto, pero 
queremos conocer su opinión. 

Escríbanos a MUNDOATARI, indi- 
cando su número de suscriptor, e inme- 
diatamente pasará a integrar este Club 
Privado. 
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CLUB de CHILE 

Informa 
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El notario público, 

Sr. Iván Torrea Iba A., 
el día del sorteo de 
premios en las oficinas 
de COELSA Computación 


La Sra. Lucía Segura , 
representante de 
revista MUNDOA TARI, 
entrega el premio a I 
Sr. Daniel Roitburd. 


Margen izquierdo: 

El Sr. Roberto 
Sepúlveda, Gerente 
Comercial de COELSA 
Computación, hace 
entrega de! premio 
afSr , Rodrigo Soto 


ATARI 

* 




’fcáHs 


El Sr. Norman 
Chellew, Gerente 
General de COELSA 
Computación hace 
entrega del premio 
a la Sra. Marta 
Zamore, Directora 
de! Colegio 
Nueva Zelandia 












Durante el año 1987 se lleva- 
ron a cabo diferentes actividades 
con los socios del ATARI CLUB 
de Chile, entre las cuales llegaron 
a un feliz término los siguientes 
concursos realizados por el Club: 

1. RESULTADOS DEL CON- 
CURSO ATAR / SUPER SCO RE 

. Este concurso contó con gran 
aceptación por parte de los so- 
cios. Consistía, como ustedes re- 
cordarán, en comprar productos 
para los computadores ATARI, 
especificados en el boletín Infor- 
mativo No. 1 , y juntar puntajes 
acumulativos por las compras 


realizadas. . 

Periódicamente se les envió 
a los socios el puntaje acumu- 
lado que tenían a la fecha, se- 
gún las Tarjetas de Garantía en- 
viadas por sus compras. Hasta el 
4 de diciembre pasado se conta- 
bilizaron las tarjetas recibidas y 
se procedió a la clasificación de 

los socios dentro del concurso, 

¥ 

según el puntaje alcanzado. 

Ante la presencia del notario 
público Sr. Iván Torrealba A., se 
procedió al sorteo de los premios 
según rangos de puntajes alcan- 
zados, dando ganadores a los si- 
guientes socios: 


— ■ Primer Premio de un millón 
de pesos en dinero efectivo, en- 
tre los socios con más de 3.750 
puntos acumulados. 

Ganador del gran premio 
ATAR! Su per Score resultó ser 
el Colegio Nueva Zelandia, Ga- 
mero 2722 de Santiago, con un 
puntaje acumulado de 5,520 
puntos. 

Felicitaciones muy sinceras ai 
ganador del gran premio de 
$ 1 .000.000. 

— Dos premios de equipos mini- 
componentes Goldstar TSR-923 

La nómina de felices ganado- 
res de un equipo minicompo- 
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El Sr. Jaime Va Marino, 
Gerente División ATAR!, 
hace entrega del premio 
ai Sr. Migue! Castillo. 

Abajo: 

Momento de ta entrega 
de/ premio a ia Srta. Rosa 
Cristina Díaz, de i Liceo 
Diego Portales. 
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Facsímil de i 
diploma 
entregado 
a todos ios 
participantes 
de i concurso. 


nente con radio y casete AM/FM, 
resultaron ser los siguientes so- 
cios con puntajes comprendidos 
entre 2.751 y 3.570 puntosrfW 

recuadro en páginas 34-35}. 

— Terceros premios de Personal 
stereo y radiorelojes Electra. 

La suerte acompañó a la si- 
guiente nómina de socios con 
puntajes entre 1 .750 y 2.750 

puntos: (ver recuadro en páginas 34~ 
35). 

Así premió e! ATARI CLUB 
de Chile a sus socios participan- 
tes en el gran concurso ATARI 
Super Score. Muchas felicidades 
para cada uno de ellos por el 


premio obtenido. 

2, RESULTADOS DEL CON- 
CURSO DESARROLLO DE 
SOFTWA RE. 

Para efecto de estimular la 
creatividad y el desarrollo perso- 
nal entre los socios del Club, se 
llevó a cabo durante el ano 1987 
el citado concurso. 

Cada socio participante debía 
enviar, antes del 30 de octubre 
de 1987, un programa computa- 
cional de creación propia, desa- 
rrollado en cualquiera de los 
lenguajes disponibles para los 
computadores ATARI. E! pro- 


grama en competencia podía ser 
de cualquier naturaleza y debía 
venir en casete o diskette, acom- 
pañado de su respectivo manual 
de instrucciones, junto al Regis- 
tro de Participación del socio 
con los datos solicitados. 

Una comisión oficial del ATA- 
Rl CLUB de Chite juzgó y selec- 
cionó a los mejores participantes, 
dando como ganadores a los si- 
guientes socios: 

— Primer premio consistente en 
$ 250.000 en mercadería a elec- 
ción. 

Socio : Sr. Rodrigo Soto B., In- 
diana 1232, Las Condes, San- 
tiago. Estudiante de 3er. año 
de Enseñanza Media. 

T ftu lo del programa : Tablerín 
Categoría : Educación. 
Descripción : Programa diseñado 
en lenguaje ATARI BASIC, 
destinado a niños de 2o. y 3o. 
Básico, que les permite adqui- 
rir los conocimientos de la 
multiplicación y la propiedad 
conmutativa, en forma didác- 
tica a través de ejemplos y 
ejercicios aleatorios, haciendo 
amplio uso de las capacidades 
def computador ATARI 800 
XL: colores, set de caracteres 
redefinidos, player missiles, 
dispfay list y sonidos. 

En la asesoría pedagógica uti- 
lizada en el programa colabo- 
ró con Rodrigo su madre, la 
Sra. María Teresa Bertrán, 
Profesora de Matemática de la 
Universidad Católica de Chile. 

— Segundo premio consistente 

en $ 150.000 en mercadería a 

elección. 

Socio : Sr. Daniel Roitburd G,, 
Amapolas 1815, Providencia, 
Santiago. Estudiante 2o. año 
de Ingeniería, U. Chile. 

Título del programa : Wipes de 
video 

Categoría : Desarrollo personal- 
utilitario. 

Descripción : Programa comple- 
tamente diseñado en lenguaje 
de máquina del computador 
ATARI 800 XL. Wipes de vi- 
deo es un programa creado 
para efectuar todo tipo de k 
efectos especiales y demostra- r 
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dones en video. Wipe, es una 
palabra técnica en inglés, que 
se usa en televisión para deno- 
minar el efecto que se produ- 
ce en una mezcla de imágenes 
en una pantalla. Este efecto 
es muy utilizado en la pro- 
ducción de spots publicitarios 
y programas de televisión. 
Mediante el uso de un compu- 
tador ATARI 800 XL y del 
programa descrito, se logran 
espectaculares efectos en las 
imágenes tratadas, de una ma- 
nera sencilla de utilizar. 

— Tercer premio consistente en 
$ 100.000 en mercadería a elec- 
ción. Este premio resultó com- 
partido por dos socios del Club, 
tras producirse un empate por 
parte del jurado: 

Socio : Sr. Miguel Angel Castillo, 
Cooperativa Él Pinar 15, Tal- 
ca. Estudiante de 2o. año de 
Enseñanza Media. 

Título del programa : Cha tea u 
Categoría: utilitario. 

Descripción : Este programa de- . 
sarrollado en ATARI BASIC, 
se puede catalogar como un 
"pseudo lenguaje", que actúa 
como un complemento del 
lenguaje BASIC normal, faci- 
litando muchas de las tareas 
de programación, ya que Cha- 
teau le permite realizar ciertas 
funciones de una manera más 
sencilla, mediante comandos 
o instrucciones simples y lue- 
go transformarlas a BASIC, 
mediante una opción incluida 
en el programa. 

Chateau es un interesante 
programa utilitario para todas 
aquellas personas interesadas 
en la programación BASIC de 
su computador ATARI, aún 
cuando tiene varias limitacio- 
nes y es un tanto lento en su 
ejecución. 

Socio : Sr. Alberto Huck, Aveli- 
no Contardo 1018, Antofa- 
gasta. 

Título del programa: Editor grá- 
fico. 

Categoría: Utilitario. 

Lamentablemente este socio 
no pudo asistir a la premiación 
por razones de distancia. 
Descripción: Este programa de- 


rroflado en lenguaje ATARI 
BASIC, le permite al usuario 
diseñar sus propias pantallas 
de presentación, incorporan- 
do variados modos gráficos, 
textos o figuras, sin necesidad 
de conocer el manejo de las 
técnicas de despliegue o len- 
guaje de máquina. 

Muchos de ustedes sabrán que 
diseñar pantallas con diferen- 
tes modos gráficos desplega- 
dos simultáneamente no es 
tarea fácil. Et programa Edu 
tor gráfico justamente facilita 
esta tarea de diseño y repre- 
senta una excelente herra- 
mienta de trabajo para los in- 
teresados en la programación 
de su computador ATARI. 

3. RESULTADOS DEL CON- 
CURSO SOFTWARE EDUCA- 
CIONAL, 

En forma paralela se llevó a 
efecto el concurso Software 
Educacional, destinado a todos 
los establecimientos educacio- 
nales del país, que disponen de 
Tal leres Computacionales ATA R I 
con el objetivo de estimular y 
fomentar la creación de progra- 
mas computacionales de carác- 
ter educativo, por parte de los 
mismos colegios y de los profe- 
sores encargados de la operación 
de estos talleres. 

Lamentablemente esta invita- 
ción no fue del todo recibida por 
los colegios, puesto que partici- 
paron en el concurso sólo una 
decena de colegios, con progra- 
mas de no muy alta calidad. 

Por esta razón, la comisión 
oficia! del ATARI CLUB de 
Chile, declaró desiertos el pri- 
mer y segundo lugar del concur- 
so, dado que los programas en 
competencia no cumplían con 
las condiciones mínimas impues- 
tas por las bases del concurso. 
Solamente el tercer premio fue 
asignado a un establecimiento 
participante, que consistió en un 
computador ATARI 800 XL y 
una grabadora XC-12. 

Socio : Liceo Comunal Ministro 
diego Portales, Av. Recoleta 
5599, Conchalí, Santiago. 
Título del programa: La circun- 


ferencia y sus elementos. 

Descripción: Programa educacio- 
nal desarrollado en lenguaje 
ATARI BASIC, dirigido a 
alumnos de 2o. año de Ense- 
ñanza Media, que entrega la 
definición de circunferencia 
y de sus elementos: radio, se- 
cante, cuerda, diámetro, tan- 
gente, ángulo del centro, ar- 
co, perímetro de la circun- 


N O MI NA DE PREMIOS 

ATARI CLUB DE CHILE 


MtM ICOMPON ENTES 

Santiago 

49-19-4000-4 Colegio María Inmacu- 
lada 

28-32-0001 -3 New Corporation Edu- 
cacional Ltdg,. 

97-54-1001-2 Barratt Hunter Jona- 
than H. 

Provincia 

28-35-3001-0 Centro Comp. Educa- 
cional, San Clemente. 

71-91-0000-4 Instituto San Fernan- 
do, San Fernando. 

09- 48-3001 -8 Colegio St. Dominic, 
Viña de! Mar. 

60-88-8001-5 Colegio Inmaculada 
Concepción, Puerto Montt. 

03-39-4001 -5 Sandoval Trombert, 
Alvaro, Temuco. 

PERSONAL STEREO 

Santiago 

52-67-5001-6 Brunetti A. Arturo. 

Las Condes. 

11-65-4001-3 Arenas A. Mario E., 

Las Condes. 

62-39-5001 -0 Vallarino E. Cristián, 
Las Condes. 

01-47-8001-5 Quezada Hnos. Ltda., 
Ñuñoa. 

82*44-0001-5 Díaz V. Flugo Ricardo, 
Las Condes. 

1 7-23-2001 -7 Soto N . José. 

19-39-6001-1 Gaspar D. Tibor. 

56-38-2001-5 Zamorano G. Oscar, 

San Miguel. 

41-54-3000-1 Silva Humberto, Provi- 
dencia. 

49-28-5001-2 Salazar F. Julio, Peña- 
lolén. 

49-60-5001-6 Princess Anne School, 
La Cisterna 

69-31 -800T9 Plaza R. Andrés, Ñuñoa 

10- 91-3000-3 Pérez S. María Eugenia, 
La Reina. 

96-40-2001-9 Oyarzún K. Juan Pablo, 
Maipu. 

11- 16-5001-2 Navarro G. Bruno, Est. 
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ferencia y áraa del círculo, 
haciendo uso de gráficos para 
explicar cada uno de los con- 
ceptos, como también de 
"voz" tomada de la cinta del 
casete, lo que da mayor grado 
de comunicación con el usua- 
rio. 

El programa fue totalmente 
desarrollado por dos alumnos 
de 2o. año de Enseñanza Me- 


dia del liceo y contó con la 
asesoría de la profesora de 
matemáticas y computación, 
Sra. Rosa Cristina Díaz. 

ENTREGA DE DIPLOMAS A 
PARTICIPANTES 

A todos los participantes en 
ambos concursos de software, 
ATARI CLUB de Chile les hizo 
entrega de sus respectivos di pío- 


1 

mas de participación, a fin de 
reconocer en cada uno de ellos 
su espíritu de participación. 

ATARI CLUB de Chile ‘agra- 
dece a todos los socios del Club, 
por su participación en los con- 
cursos organizados durante 1987 
y los invita a continuar partici- 
pando en las actividades previs- 
tas durante el año 1988. • 


Central. 

08-45-7000-5 Mira T. Juan Carlos. 

51- 38-7001-0 Lindenbaum M. Raúl. 

18-68-8001-1 Liceo Comercial B-61. 

76-65-30016 Liceo Carolina Liona 

de Cuevas, Maipú. 

34-93-5001-2 Lara G. Omar Andrés, 
Maipú. 

97-18-7001-2 Ibáñez San Martín Pa- 
tricio, Lo Prado. 

70-03-1000-3 González R. Lucas, 
Providencia. 

93-39-0001-7 González L. Omar, Lo 
Valledor Sur, 

78-65-9001-2 Gaviño P. Gustavo. 

99-54-7001-8 Cortés M. Carlos, 
Quinta Normal. 

89-51-0001-3 Colegio Coronel Santia- 
go Bueras, La Florida. 

76-58-4001-9 Colegio Aconcagua 
Ltda . 

41-84-9000-3 Castro P. Carlos, Ñuñoa 

16-59-1000-7 Benavides M, Inés, San 
Miguel. 

54- 30-8001-7 Alvarez J. Ricardo, 
Providencia. 

Provincia 

55- 80-1001-0 Castillo O, Juan, 

An gol . 

04-24*0000-6 Cárdenas A. Rafael, 
Antofagasta. 

52- 82-4001 -9 Cáceres V. Francisco, 
Peral rilo. 

43-31-2001-5 Bahamondes U. Carlos, 
Valparaíso. 

40-43-7000-5 Castro R. Raúl, Anto- 
fagasta. 

65-6560016 Irisarri G, Pedro, Val- 
paraíso. 

10-76-4000-0 Valle S. Fernando, 
Linares. 

8067-5001-2 Ortiz C. Rodrigo, 
Tocopilla. 

186 26001-3 Olivares L. Christíán, 
Valparaíso. 

01-82-10016 Moreno M. José, 
Calama. 

5361 6001 -1 Leiva C. Paola, Anto- 
fagasta . 

23-39-2001-1 Fernández C. José, 
Quilpué. 

746860016 Escuela Particular Las 
Palomas, Temuco. 


1563-20006 Escuela de Sanidad 
Lard, Valparaíso. 

76-27-7001 6 Bugueño M. Waldo, 
Chuquicamata. 

06-55-30016 Browne Virginia, Viña 
del Mar. 

83696000-4 Bravo C. Víctor, 
Antofagasta. 

82-29-1001-2 Barbato R. Salvador, 
Antofagasta. 

596 36000-4 Canelo P, Ricardo, 
Chuquicamata. 

RADIO RELOJ 

Santiago 

64-14-20006 More ira R. María. 

436340016 Labra N. Alberto, 

Las Condes. 

63-296001-9 Kilian N. Roberto, 

Las Condes. 

63- 14-9000-7 Harnecker P. Joaquín, 
Providencia. 

154960Ó16 Foster M. Alfredo, 

Las Condes. 

21416001-7 Liceo Sta. Luisa de 
Marillac. 

37-9560006 Hasler G. Daniel, 
Conchalí. 

28-406001 -9 Espinosa J. Norberto, 
Providencia. 

58-3660016 Díaz P. Manuel, 

Ñuñoa. 

88-06-2000-2 Buccioni Eduardo, 

La Florida. 

49-396001-5 Wtnter E. Augusto, 
Providencia. 

69666000-1 Villa María Academy, 

7663-10016 Oliva M. Héctor, Macu! 

36406000-1 Liceo B-79, Q. Normal. 

1467-1000-9 Karaloyfu Nurettin, 
Providencia. 

64- 29-9001-2 González F. Pedro. 

40-606001 *9 Esc. San Francisco 

Javier, Cerro Navia. 

126060016 Amagada V. Germán, 
La Cisterna. 

43626001 6 Seguel N. José, San 
Miguel. 

046260016 Saltarini S. Alejandro, 
Ñuñoa, 

8067-9000-7 Piña C. Oscar. 

6665-70014 Mosca M. Patricio, 

Las Condes. 


19-12-5000-7 Martínez M. Manuel, 

La Reina. 

9063-5000-1 Godoy G. Hernán, La 
Florida. 

086360016 Garrido D. Washington, 
San Miguel. 

166360006 Gambi A. Galo. 

6364-70006 Errázuriz B, Andrés. 

23436001-1 Diez L. Paola, Las 
Condes. 

9167-20016 Chang R. Alberto. 

Provincia 

82-25-70016 Méndez M. Héctor, 
Talcahuano. 

4660600T5 Liceo B-15, Lago 
Raneo. 

52-56-2001-3 Colegio Providencia, 
Temuco. 

69-294001-7 Sáez Eduardo, Valpa- 
raíso. 

984260006 Quiroz M. Patricio, 
Talcahuano. 

47- 234001-1 Liceo de Niñas A-24, 
Édo. Charme, San Fernando. 

42466001-1 Indio Compuctub, 

La Serena. 

39- 776001 6 Gálvez A. Viviana, 
Chuquicamata. 

6940-9001 4 Blazquez J. Camilo,' 
Valparaíso. 

796260016 Acha M. Cecilio, 

Li mache. 

2769-4000-0 Liceo Industrial 
A-N.27, Puerto Montt. 

9062-80016 Liceo C68, Curacaví. 

86-97-5000-1 Instituto Chacabuco, 
Los Andes. 

85-0160006 Gil i Ramón, Puerto 
Montt. 

62636000-1 Duran R, Nelson, 
Chuquicamata. 

40- 96-00016 II. Munic. de Chite 
Chico, Chile Chico. 

7263-7000-9 Fernández F, Manuel, 
Concepción. 

7540-1000-7 Silva A, Francisco, 
Quillota. 

48- 646001-9 Liceo La Asunción, 
Talcahuano. 

0065-50016 English College Tala- 
gante, Talagante. 

50424000-2 Dummer T. Roberto, 
Concepción . 
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Cuenta 

corriente 


(Final) 


Amigos lectores, este mes concluiremos este 
práctico programa para administrar una cuenta 
bancaria. 

Definición de las rutinas: 

1. DEPOSITOS: 

Presenta la particularidad de introducir a la 
cuenta el monto del depósito una vez que se cum- 
ple el plazo que corresponde a su modalidad: 

— efectivo (inmediato) 

— cheque del mismo banco 

— cheques de otros bancos de la misma plaza 

— cheques de otros bancos y otras plazas. 


158© REH RUTINA INGRESO DEPOSITO 
1518 HUH0E=MAL(TR0L$ 1245,248» 
1515 DUH$= M 

DUMS (12,14) =FEC$ : NUHDE=NUND E*1 
1520 ? CHR$ (125) J"l 


DEPOSITOS 


INGRESO 


Íí! 


1538 P05I T ION 0,2:? ‘BMEfectivo 
■«Cheque igual bco ' 1 

1535 POSITION 8,3:? **BCh.otro Bco = 
PzafUotro Docunanto " 

1540 POSITION 8,4:? “BCh.BCO otras 

Pzaipvai es " 

1542 POSITION 0,6:? I «BW^ nuHero d 

e forna depósito ” 

1545 CIOSE JtüOPEN DI, 4, 8, ''K:” 

1550 GET ttl,A¡IF A<49 OR A>54 THEN 155 

0 

1555 ? CHR$(A+12a) :0IIH$ (22,22 J=CHRS(A- 

481 ^ 

1568 P OSITION 8,8 i? "M HfirartWHWfi 

11 1 : K=2 : Y=18 ! L=1 

8:G0SUB 159BBlDUH$(2, l*L)=0F£RS 
1565 POSITION 8 , 12 i? ‘«H WllWlllilSEB 
■ÜWBHB M B— 1 ; : K=2 : Y=I3 : L= 

7 : GOSUB 15908 : DUN$ Í15,14H) =0FER$ 

1578 POSITION 8,28: ? j 
| , f | j T I V B f 1 “ ' i INPUT R$:IF 

R50"5" THEN 1528 

1598 REH RUTINA VALIDAR FECHA INGRESO 
DEPOSITO A CUENTA 


CORRECTOS los i 


1688 8Yl=ASCCFEC$ti,l))¡A=A-48 

1610 RESTORE 283B8+A5C(DUK$ (22,22)) ¡RE 

AD INC ¡BY1=BY1+INC 

1628 BY2=ASCCFEC$(2,2)) ¡FET$(3,3)=FEC$ 
(3,3) ¡RESTORE 28108+BY2¡READ HESS, DIA: 
IF BY1<=DIA THEN 1688 
1638 8Y1=BY1-DIA¡IF BY2<>12 THEN 1650 
1640 8 Y2=l ¡ BY3-A5C (FEC$ (3,3)) ¡BY3=BY3+ 
l;FET$(3,3)=CHR$(BY3):G8T0 1668 
1658 BY2=BY2*1 : FETS (3 , 3) =FEC$ (3 , 3) 

1668 FET$ (1, 1) =CHR$ (BY1) :FET$(2,2)=CHR 
$(BY2) 

1670 DUH$ (23,25) =FET$ 

1688 INC-6375+NUHDE#25¡ T0TAL$ (INC+1, IN 
C+25)=DUH$ 

1698 ? CHR$ (125) ¡POSITION 8,28¡? •* 


TINUA ingreso otros depósitos VN 


CON 




ÜNPHT R$ ¡ IF R$="5 M THEN 1515 

1708 AUH$=STR$ (NUHDE) ¡ L=LEN (AUH$) ¡ TROL 

$ (245, 244+L>=AUH$: GOTO 22380 ¡GOTO 10889 


2. SALDOS: 

Para cumplir con esta finalidad de proporcio- 
nar el saldo se debe ingresar el monto inicial al 
iniciar este programa. 

Luego definir la fecha final deseada para el 
saldo. De especial Interés en el diseño es el hecho 
que se puede ingresar una fecha futura para tener 
una información acerca del monto necesario de 
depósito para cubrir con cheques girados a fecha. 


1888 GOSUB 2218B 
1818 ? CHR$C125); t 




1820 POSITION 8,2¡? 


c i a L 


m 


DIGITE saldo i n i 


til 


1830 K=2¡Y=3¡L=10¡ GOSUB 15988 ¡HES$=0FE 
R$:SALD0=VAL(0F£8$) 

1840 POSITION 0,4¡? 11 



En l a pantalla s 


resara la fecha final d 


m« 

f 


e corte del SfSLDti 


1058 NUEVA=1860¡ GOSUB 38988 
1868 GOSUB 19808 
1878 UHITE=NUHDE 
1888 INC=8 

1898 ELEGIRO$=TQTAL$ (1+INC, 64+INC* ¡FEC 
S=ELEGIB0$ (62,64) ¡IF FEC$=" '* THEN 1 
920 

1895 GOSUB 19068 ¡DIAPA=NUM>E¡IF DIAPA) 
HUNDE THEN 1910 

1980 AUH=VAL (ELEGIROS (17, 26) ) ¡ SALP0=5A 
LDO-AUH 

1910 INC=INC+64¡GOT0 1898 
1928 REH CONSULTA DEPOSITOS 
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APLICACIONES 


3. BUSQUEDA: 

Permite buscar los datos de un cheque deter- 
minado por alguno de sus datos, es decir: 

— número del cheque 

— monto del cheque 

— destinatario del cheque. 


Su labor, amigo lector, consiste ahora en com- 
pletar las líneas de este número con las publicadas 
el número anterior y luego ejecutar el programa. 
Como desafío queda la posibilidad de mejorar el 
listado actual para transformarlo en utilitario óp- 
timo para la comunidad atariana. 

Hay un premio de $ 10.000 en software para 
la mejora seleccionada. ¡Participe y gane! • 


368B REM RUTINA DE BUSQUEDA 
3010 ? CHR$I1Z5); I 1 


A CHEQUE 


BU5QUED 


til» 
I 


3020 POSITION 17,3:? " ME N U M 
3025 POSITION 5,5:? 11 Q Búsqueda por N 
unero CHEQUE" 

3030 POSITIDN 5,7:? 11 @ Búsqueda por H 
onto del CHEQUE" 

3035 POSITIOM 5,9:? " B Búsqueda por 0 
RAEN del CHEQUE" 

3040 PQSITION 5,11:? " □ Regresa a MEN 
U PRINCIPAL" 

3050 POSITIDN 0,20:? *1 


DIGITE nuHero 


| al :€L0SE tU: OPE 


de OPCION 


N ttl, 4,0, "K:" 

3060 GET tti,A;IF A <49 OR A>54 THEN 306 
0 

3865 D=A~48 : PONE 752,0: OH 0 COTO 3188, 
3208,3300,10080 

3180 ? CHR$(125) :? "INGRESE NUMERO CHE 
QUE" 

3105 T=ADR(TOTAL$) 

3110 X=2:Y=5:L=10: GOSUB 15900 
3115 FOR 3=0 TO 99 : INC=64*3 : AUM=10*3 : B 
USCA$ (i+AUN, 18*AUH) =T0TAL$(4+INC, 15*IN 
C) : NEXT 3 

3120 Y=U5R (ADR (T5B$) ,108, ADR (BUSCAS) , A 
DR(OFERS) ,18,L) 

3121 Y=100-5 : INC=Y*64: ELEGIR0$=T0T AL$ C 
1+INC,64*INCU? CNR$(125) 

3125 FOR 3=3 TO 6 


3130 RESTORE 28199*3: READ DUM$,INI,TIT 
ULOS, FIH: L=FIN-INIU : POSITIDN 0,3*2:? 
TITULOS 

3135 POSITIDN 2, 3*2*1:? ELEGIROS (INI*! 
,FIN) :NEXT 3 
3140 GDSUB 30900 
3168 GOTO 3000 

3200 ? CHRSC125I :? "INGRESE MONTO DEL 
CHEQUE" 

3210 X=2:Y=5:L=10¡GOSUB 15986 
3215 FOR 3=0 TO 99:IRC=64*3:AUM=10*3:B 
USCAS Íl+AUM, 10+AíIM) =T0TAL$ (17+INC, 26*1 
HG) : NEXT 3 

3228 Y=USR (ADR (T5B$) , 100, ADR (BUSCAS) , A 
DR(0F£R$) ,10,L) 

3221 Y=100-Y :INC=Y*64 : ELEGIR0$=T0TALS ( 
1*INC,64*INC) ;? CHR$(125) 

3225 FOR 3=3 TO 6 

3230 RESTORE 28199*3: READ DUM$,INI,TIT 
ULOS, FIN :L=FIN-INI+1 : POSITION 0,3*2: ? 
TITULOS 

3235 POSITION 2,3*2*1:? ELEGIROS (INI+1 
, FINI: NEXT 3 
3240 G05UB 30500 

3250 REM MENSAJE NO SE ENCUENTRA 
3250 GOTO 3060 

3300 ? CHR$(1Z5):? "INGRESE NOMBRE ORD 
EN CHEQUE" 

3310 H=2:Y=5:L=18:G05UB 15900 
3315 FOR 3=0 TO 99:INC=64*3:AUH=16*3:fi 
USCAS (i*AUM, 10*AUH) =T0TAL$(27*INC, 36*1 
NO: NEXT 3 

3320 Y=OSR (ADR (TSB$) ,100, ADR (BUSCAS) ,A 
DR(0FERS),10,O 

3321 Y=10B~Y : INC=Y*64 : ELEGIRO$=TOTAL$ ( 
1+IN0,64*INC) :? CHR$ (125) 

3323 Y=18B~5 : INC=Y*64 : ELEGIRO$=TOTAL$ ( 
1+IttC , 64*INC) : ? CKRS (125) 

3325 FOR 3=3 TO 6 

3338 RESTORE 28199*3: READ DUHS,INI,TIT 
ULOS, FIN : L=FIN-INI*1 : POSITION O, 3*2: ? 
TITULOS 

3335 POSITION 2, 3*2*1:? ELEGIROS (INI*1 

, FIN): NEXT 3 
3340 GOSUB 38988 

3360 GOTO 3900 


1925 ING=6400 

1930 0FER$=T0TAL$(l*INC f 25*INC) :FEC$=0 
FER$(23,25) :IF FECS=" " THEN 1978 
1935 GOSUB 19000: DI ADE =NUHDE:IF DIADE) 
NUMDE THEN 1968 

1940 AUM=VAL (OFER$ (15,21) ) ¡ SALD0=SALDO 
*AUH 

1968 INC=INC*25 : GOTO 1938 
1965 FEC$=HES$ ! GOSUB 16400 
1970 ? CHRS (125): POSITION 0,5:? '1 


ALDO A LA FECHA 


1975 POSITION 4,7:? DIA;" de "¡TITULOS 
de 19"; ANO 

1980 POSITION 2,10:? " de "; SALDO;" p 
esos 
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EQUIPOS 


LAPIZ OPTICO SK-16 




— Una poderosa herramienta para su computador ATARI 

— Especial para colegios, profesionales y público en general 

— Se puede usar con casetera o diskettera 


Las conocidas e inmejorables 
características gráficas del com- 
putador ATAR!, logran efectos 
realmente revolucionarios en 
conjunción con la posibilidad de 
lectura del Lápiz Óptico SK-16, 
creación de SKYDATA S.A., su 
representante exclusivo. 

Utilizando el SK-16 —tan sen- 


cillamente como si escribiera 

* 

sobre su televisor o monitor- 
podrá observar la formación de 
la imagen por la acción de un 
haz electrónico que incide sobre 
la pantalla, liberando energía en 
forma de fotones, cuya frecuen- 
cia corresponde al espectro vi- 
sible. 


El monitor posee un sistema 
de barrido, que sincronizado 
desde el computador produce el 
desplazamiento de! punto lumi- 
noso sobre la pantalla, recorrién- 
dola .horizontal mente mediante 
líneas que llegan a cubrirla. 

El lápiz que posee un recep- 
tor (fotosensor), capta este pun- 
to generando un impulso, que a 
la vez el sistema de barrido sin- 
croniza, calculando las coordena- 
das de la posición de! mismo. 
Este último trabajo lo realiza, 
entre otras cosas, un micropro- 
cesador denominado ANTIC, 
exclusivo de los computadores 
ATARI. Esto representa una ver- 
dadera ventaja, ya que permite 
que su computador no tenga que 
interrumpir su operativa normal 
mientras realiza el cálculo, 

Nuevo arte en su mano 

.Toda esta información técni- 
ca demuestra la capacidad dei 
SK-16, con el cual podrá usted 
graficar líneas, círculos, cuadra- 
dos, polígonos, etc., utilizando 
colores o tramas para dibujos o 
relleno de figuras, Además de 
gráficos puede incluir letras para 
complementarlos. 

Otra característica es la posi- 
bilidad que presenta de dibujar 
com mayor precisión utilizando 
una "lupa" y desplazándose al 
lugar de la pantalla que desee. 

Este lápiz óptico viene acom- 
pañado por el mejor software 
ATARI desarrollado para gráfi- 
cos, presentado en cartridge, 
casete o diskette., permitiéndole 
estos dos últimos grabar sus 
gráficos para ser utilizados o mo- 
dificados posteriormente. 

Un conjunto de rayos lumi- 
nosos y el SK-16 logran el des- 
cubrimiento' de un nuevo arte: 
la graficación computarizada. • 
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CONCURSOS 


Esta poderosa herramienta es 
un instrumento útilísimo de pro- 
gramación, con el que usted pue- 
de dibujar láminas que sirvan 
de marco o escenario para sus 
actividades. 

Un ejemplo representativo al 
respecto lo constituye nuestro 
"campeón de la Videomanía" el 
Karate Champion, con sus dife- 
rentes escenarios de combate, 
que no son otra cosa que lámi- 
nas dibujadas con alguno de los 
programas gráficos. 

i Qué importante es contar 
con esta posibilidad ! 


Ahora definiremos las bases 
para dos concursos con nuestro 

lápiz de luz: 

T. CONCURSO TRUCOS CON 

LAPIZ DE LUZ. 

Proporcione algún truco para 
mejorar el trabajo con el lápiz 
de luz. 

Los trucos publicados en esta 
sección de la revista MUNDO- 
ATAR! ganarán 3 juegos a elec- 
ción, de nuestra nueva línea de 
juegos con Stack o en diskette. 

2. CONCURSO REGIONES 

CON LAPIZ DE LUZ. 

Ejecute una lámina del mapa 
de su Región geográfica, mos- 
trando el lugar de las fuentes 
más importantes de recursos con 
su lápiz de luz. 

Cada mes, a partir de abril de 
1988 publicaremos el nombre 
del lector favorecido y la Región 
con su correspondiente foto. 

De ese modo usted se hará 
acreedor a un premio de $ 7.000 
en software de nuestro catálogo, 
a su elección. 
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PARTICIPANDO 


La contribución seleccionada del mes es da 
de Rodrigo Ortiz, quien recibe como premio 
un programa Mapa de Memoria. 






DE UN 300 XL 


POR • 


ODRIGO ORT 


oídla chile;-: 


caía 2 



d 

z 





1 REH 

2 REH 

3 REH S 

4 REH Z 

5 REH 

6 REH £ 

7 REH m 

8 REH 

9 REH 

18 GRAPHICS 15:P0KE 712,66¡PGKE 718, 4¡ 
POKE 708, 12 i POKE 789,0¡P0KE 82,8:P0KE 
752,1 

28 COLOR líPLOT 28,145 ¡ORAHTO 25,158:0 
RAHTO 135, 156: ORAHíO 148, 145 ¡ORAHTO 14 
8, 140 ¡ORAHTQ 28,148:POSITIOK 28,145 
25 POKE 755,11X10 18,tt6,0,8, M 5¡” 

38 PLOT 148, 145 ¡ORAHTO 20,145 ¡PÜ5ITI0N 
2S,150:XIO 18,115, 8, 8,"S: M 
35 COLOR 2!PLOT 28,135:0RAHT0 25,130:0 
RAHTO 135, 138 ¡ORAHTO 148, 135 ¡ORAHTO 14 
8, 139 ¡ORAKTO 20, 139 ¡POSITIOK 28,135 
40 POKE 765,2:XI0 18,1*6, 0,0, "S:" 

45 PLOT 148, 135 ; ORAHTQ 20,135! POSITIOK 
25,138:XI0 18,115,0, 8, "5: 11 
58 PLOT 25,138:0RAHT0 35, 98 ¡POSITIOK 3 
6,95: POKE 765,2:810 18,116, 8, 0, M S¡“!COL 
OR 2: PLOT 30, 95 ¡POSITIOK 28,135 
55 XIO 18,116, 0, 8, H S: 11 
60 PLOT 14B,135:0RAHT0 138, 95; COLOR 2: 
ORAKTO 125 , 9C : POSITIOK 135, 130 ¡POKE 76 
5,2:XI0 18,116, 0, 8, “S.* 1 ! COLOR 3 
65 PLOT 135, 130! PLOT 136, 1311 PLOT 137, 
132 «PLOT 138, 133 * PLOT 139, 134: PLOT 140 


,135: COLOR 2: PLOT 137,131 
67 PLOT 130, 132: PLOT 138,131:C0L0R 3:P 
LOT 25, 130:0RAHT0 20, 135: COLOR 2 
78 COLOR 2!PLDT 125,90:ORAKT® 36,90 :PO 
SITION 26, 138: POKE 765. 3 ¡XIO 18,116,0,0 
COLOR 3 

88 PLOT 36, 91 i ORAHTO 26, 129: COI 3R 2¡PL 

OT 35, 98 ¡ORAHTO 25,130 

90 COLOR l:PLOT 121,9l:0RAHT0 129,129; 

COLOR 8: PLOT 130,123:0RAHT0 131,123:PL 

OT 130, 122 :0R AUTO 131,122 

180 COLOR i: PLOT 124, 129 ¡ORAHTO 117,91 

110 PLOT 125, 129: ORAHTQ 118,91 .‘PLOT 12 

6, 129 :ORAHTO 119, 91 ; PLOT 127, 129 : ORAHT 

O 120,91 

120 PLOT 128,129 : ORAHT O 121,91 
130 PLOT 124 , 131 : ORAHTD 129,131 :ORAHTO 
129, 132 ¡ORAHTQ 124,132 ¡ORAHTO 124,133 
: ORAHTQ 129,133 

140 COLOR 3: PLOT 130,131 ¡ORAHTO 134,13 
i: ORAHTO 134, 132 ¡ORAHTO 138, 132: ORAHTO 
138, 133 ¡ORAHTO 134, 133 ¡COLOR 2 
150 PLOT 125, 98 ¡ORAHTO 115, 75 ¡ORAHTO 4 
5, 75 ¡POSITIOK 35, 90 ¡POKE 765,1 ¡XIO 18, 
86,0,0, "S¡ 11 ¡COLOR 1 ¡PLOT 117,76 
160 ORAHTO 130, 95 ¡PLOT 43, 75 ¡ORAHTO 30 
,95 ¡COLOR 3 ¡PLOT 70,85¡0RAHT0 90,85¡0R 
AHTO 88, 82 ¡COLOR 2¡0RAHT0 72,82 
170 COLOR 3 ¡ORAHTO 78,85¡0RAHT0 71,84: 
ORAHT 6 89, 84 ¡ORAHTO 89, 83 ¡COLOR 2¡0RAH 
TO 71, 83 ¡COLOR 2 

188 PLOT 51, 115 ¡ORAHTO 58, 128 ¡ORAHTO 1 
@0,128 ¡ORAHTO 99, 115 ¡PLOT 35,115¡DRAHT 
O 115, 115 ¡ORAHTO 111,95¡0RAHT0 4®, 95 
190 ORAKTO 35, 115 ¡PLOT 36, 118 ¡ORAHTO 1 
14, 110¡ PLOT 37, 185 ¡ORAHTO 113,Í05¡PLOT 
38,100 ¡ORAHTO 112,100 
288 PLOT 35, 116 ¡ORAHTO 51,116¡PL0T 99, 
116 ¡ORAHTO 115,116¡PL0T 34,117¡DRAHT0 
51, 117 ¡ PLOT 99, 117 ¡ORAHTO 116,117 
210 PLOT 58, 121 ¡ORAHTO 180, 121 ¡ PLOT 49 
,122 ¡ORAKTO 101, 122 ¡PLOT 34, 118 ¡ORAHTO 
49, 118¡PL0T 101, 118 ¡ORAKTO 116,118 
215 PLOT 34, 119 ¡ORAHTO 58, 119: PLOT 108 
,119 ¡ORAKTO 116,119 ¡PLOT 49, 123 ¡ORAHTO 
161, 123 ¡PLOT 49, 124 ¡ORAHTO 101,124:? 
220 ? " 


O XL 


tu 


230 ? » 

ii 

240 ? " 


CAPACIDAD GRAFICA DE UH 60 


POR ¡ ROORIGO ORTIZ 


COLEGIO 5 AGRADA FAMILIA Toe 


258 GOTO 258 
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INGRESA AL MUNDO 
DE LA COMPUTACION 
ESTUDIANDO INGLES 
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Irene Morales 1 1 Fono: 332599 - Coronel Queros 126 Fono: 396703 












